let rec($)(!)p=(p!stdin;p)!stdin;(!)$p;;input_char$print_char