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