m=0
do 999
c=c2d(charin())
m=max(c,m*(c>10))
_=charout(,d2c(m))
end