set s "" while {[set c [read stdin 1]]>""} {set s $c$s} puts $s
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page