let(!),r=output_byte stdout,read_line
let c x=(Char.code x-32)mod 64
let rec(@)s i=let a=((c s.[i]*64+c s.[i+1])*64+c s.[i+2])*64+c s.[i+3]in!(a/65536);!(a/256);!a;i<54&s@i+4;;r();while 1=1do
r()@1done