main = do
  li <- getLine
  let ans = compute li
  putStrLn (if ans then "Yes" else "No")

compute :: String -> Bool
compute "" = False
compute cs = inner cs
  where
    inner ('h':'i':ss) = inner ss
    inner "" = True
    inner _ = False
