import Data.List.Split ( splitOn )

main = do
    getLine
    getLine
    xss <- words <$> getContents
    let [p] = filter id $ map ((\x -> if x > 1 then True else False) . length . splitOn "LOVE") xss
    putStrLn $ if p then "YES" else "NO"