let rec(!)s=try!(input_char stdin::s)with _->List.map print_char s;;![]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page