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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page