main=mapM(\x->putStrLn$replicate(4-abs x)'*')[-3..3]