main=mapM putStrLn[tail$do j<-t;r.take 4.r$" "++show(i*j)|i<-t] t=[1..12] r=reverse