binary s [read stdin] c* a;foreach c $a {if {$c>64} {puts -nonewline $c\ }}