let rec f?(c=input_byte stdin)i=f[|Obj.magic print_char(c/64*i lxor c);32-i;i|].(c/48);;f 0