putStr$unlines[[last$' ':['*'|z<-[y,-y],mod(x+z)6==3]|x<-l]|let l=[0..18],y<-l]
