import Data.List

canMakeAkihabara :: String -> String
canMakeAkihabara s
  | isInfixOf "KIHBR" s = "YES"
  | isInfixOf "KIHABR" s = "YES"
  | isInfixOf "KIHBAR" s = "YES"
  | isInfixOf "KIHABAR" s = "YES"
  | otherwise = "NO"

main = do
  s <- getLine
  putStrLn $ canMakeAkihabara s
