r=[1..8] main=mapM putStrLn[show=<<[a,a+b..a+c*b]|c<-r,a<-r,b<-r,a+b*c<=9,b<8]