e=[]:e x%y|x>y=foldr(zipWith(:))e$y%x|y>x=x%x++(map succ<$>x%(y-x))|r<-[1..x]='a'<$r<$r f(a:b:_:c)=unlines$read[a,b]%read c main=interact f

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

download

return to the top page