main=mapM putStrLn[unwords[r$take 3$r(show$i*j)++"  "|j<-l]|i<-l]
r=reverse
l=[1..12]