let g = stdin.ReadLine >> fun s -> s.Split '.'
let f a = if a = None then "YES" else "NO"

Seq.zip (Seq.map int (g ())) (Seq.map int (g ()))
|> Seq.tryFind (fun e -> (fst e) < (snd e))
|> f
|> printfn "%s"