main = interact $ unlines . map (show . solve "hackerrank") . tail . lines

data YesNo = YES | NO deriving (Show)
solve [] _ = YES
solve _ [] = NO
solve l@(x:xs) (y:ys)
    | x == y = solve xs ys
    | otherwise = solve l ys