main=readLn>>=putStr.i f n c=concat$take n$repeat c i n=j(j" ""|"n)(j"-""+"n)n j a b n=f n a++g++g++"\n"where g=b++f n a
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page