let rec l?(a=input_char stdin)b=b>0&a<'!'||()=print_char a;a='"'&l(-b)||l b;;l 1