open System type Boy = int type Girl = int type Student = { Boy: Boy; Girl: Girl } let (|Pair|Alone|) x = if x.Boy <= x.Girl then Pair else Alone let solve x = let yasuo = x |> function | Pair -> "YES" | Alone -> "NO" let left = abs <| x.Boy - x.Girl (yasuo, left) let A, B = let t = stdin.ReadLine().Split() |> Array.map int in t.[0], t.[1] solve { Boy = A + 1; Girl = B } |> fun res -> printfn "%s\n%i" (fst res) (snd res)