main=interact$f f(x:z)=x:'\n':f[y|y<-z,y>x] f x=x
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page