let (|Num|Unknown|) = function | "?" -> Unknown | x -> Num (int x) let c = stdin.ReadLine().Split() match c.[1] with | Unknown -> "14" | Num center -> if center = 3 then "1" else "4" |> printfn "%s"