fun readInt () = valOf (TextIO.scanStream (Int.scan StringCvt.DEC) TextIO.stdIn) val () = let val n = readInt () val ans = if n = 1 then "square1001" else "Petr" in print (ans ^ "\n") end