f(x:y:s)|x<=y=x:f(y:s)|True=f(x:s) f x=x main=interact f
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page