let (|Pl|Mu|Eq|) (a,b) = match a, b with | "0", "0" | "2", "2" -> Eq | "1", _ | _ , "1" | "0", _ | _ , "0" -> Pl | _ -> Mu let A, B = let t = stdin.ReadLine().Split() t.[0], t.[1] (A,B) |> function | Pl -> "S" // Sum | Eq -> "E" | Mu -> "P" // Product |> printfn "%s"