Posted to tcl by apn at Mon Jul 06 03:39:19 GMT 2015view pretty
namespace eval app { proc echo {args} { puts [join $args ,] } proc reverse {args} { puts [join [lreverse $args] ,] } namespace export echo reverse namespace ensemble create } app {*}$argv