m@main=do c:x<-getLine;putStrLn$max(c:x)x;m