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