m#s=take(m-1)s++m#drop m s s%1118="" s%n=' ':show(s!!n)++s!!n#s%(n+1) main=putStr$'1':[1,3..]%1
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page