main = do
       e<-getLine
       let n=read e
       putStrLn $ if n==1 then "square1001" else "Petr"