let g = stdin.ReadLine >> fun s -> s.Split '.'
let f0 e = (fst e) <> (snd e)
let f1 = function
    | Some e -> (fst e) > (snd e)
    | None -> true
let f2 b = if b then "YES" else "NO"

Seq.zip (Seq.map int (g ())) (Seq.map int (g ()))
|> Seq.tryFind f0
|> f1
|> f2
|> printfn "%s"