binary s [read stdin] c* a;foreach c $a {if {$c>64} {puts -nonewline $c\ }}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page