let inputs = System.Console.ReadLine().Split(' ') let args = [for str in inputs do yield int(str) ] let checkDate(y , m , d)= match ( y , m , d) with | y , _ , _ when ( 1990 <= y ) && ( y <= 2018 ) -> printfn "Yes" | y , m , d when ( 1989 = y ) && ( m > 1 ) -> printfn "Yes" | y , m , d when ( 1989 = y ) && ( m = 1 ) && (d >= 8) -> printfn "Yes" | y , m , d when ( 2019 = y ) && ( m <=4 ) -> printfn "Yes" | _ , _ , _ -> printfn "No" let ( y , m , d ) = ( List.head args, List.item 1 args, List.item 2 args) checkDate ( y , m , d)