main=interact$f.reads;f[(x,y)]=tail=<<read y%0where 0%_=["\n"];y%n=[' ':shows a b|a<-[n+1..x],b<-(y-1)%a]

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page