import Text.Printf main=mapM putStrLn[tail$s>>=printf"%4d".(y*)|y<-s] s=[1..12::Int]