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 null p then "NO" else "YES"