main=putStr$[j|i<-[1..18],j<-[1..i],j<19-i]>>=show
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page