import System.Exit
import Control.Monad
main = do
	putStrLn "Gob's Program: Y/N?"
	ans <- getLine
	case ans of
		"Y" -> sequence_ $ map putStr penuses
		_   -> exitSuccess

penuses = ["Penus " | _ <- [1..]]