import Control.Applicative ((<$>))

main :: IO ()
main = solve <$> readLn >>= putStrLn

solve :: Int -> String
solve n | n == 1 = "square1001"
        | otherwise = "Petr"