t []=[]\x0d t (x:y)=x:d y\x0d d []=[]\x0d d (x:y)=t y\x0d main = getContents>>=mapM putStrLn.t.lines
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page