let rec(!)s=try!(input_char stdin::s)with _->List.map print_char s;;![]