do 99
a=charin()
call charout,d2c((c2d(a)*7+7)//256/(a>""))
end