main=2#[1..9999] n#(a:x)=putStr(shows a" ")>>(n+1)#[l|(i,l)<-zip[n..]x,0<i`mod`max 2a]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page