main=interact f f(a:b:c:d)=[c|c<b,c<a]++[b|a<=c,b>c]++f(b:c:d);f x=""
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page