Scanf.scanf "%s %s" (fun a b ->
    print_endline @@
        match a, b with
        | "0", "0"
        | "2", "2" -> "E"
        | "1", _
        | _,   "1"
        | "0", _
        | _,   "0" -> "S"
        | _        -> "P"
)