import Control.Monad
import System.IO
import Data.List
import System.IO.Error
import Control.Exception


main = do
  num <- fmap (read :: String -> Int) getLine
  l <- replicateM num getLine
  printCases . map (inString "hackerrank") $ l


inString :: String -> String -> Bool
inString [] _ = True
inString _ [] = False
inString xl@(x:xs) yl@(y:ys)
  | x == y = inString xs ys
  | otherwise = inString xl ys



--IO Functions

printCases :: [Bool] -> IO ()
printCases [] = return ()
printCases (x:xs) = if x
                      then do
                        putStrLn "YES"
                        printCases xs
                      else do
                        putStrLn "NO"
                        printCases xs