let rec f?(c=input_byte stdin)p=output_byte stdout(c lor 32-[|32;0;32|].(c/48-c/64*p));f(c/96+10/c);;f 1