f(a:t@(b:c:_))|a>b&&a>c=a|a>b=b|1>0=f t
m@main=getLine>>=(\l->putStrLn[f$l++"z"])>>m