main=putStr$12:9998`take`f[1]2>>=show f(a:b)x|l<-x:[x|a>1]=l++f(b++l)(3-x)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page