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