main=readLn>>=putStrLn.(\x->if x==1 then"square1001"else"Petr")