let rec f?(c=input_byte stdin)_=f(output_byte stdout(c+c/64*(13-c mod 32/14*26)));;f()