main=do n<-readLn;putStr$do y<-map max[0..n];x<-[0..n];take 4$shows(y$x*y 1)$last$"\n":[" "|x<n]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page