let fstMove = "Petr" let nxtMove = "square1001" let n = stdin.ReadLine() |> int n |> function| 1 -> nxtMove | _ -> fstMove |> printfn "%s"