import Control.Applicative
import Data.Bool (bool)

main :: IO ()
main = solve <$> getLine >>= putStrLn

solve :: String -> String
solve s = bool "NO" "YES" $ s `elem` ["AKIHABARA",
                                      "KIHABARA", "AKIHBARA", "AKIHABRA", "AKIHABAR",
                                      "KIHBARA","KIHABRA","KIHABAR","AKIHBRA","AKIHBAR","AKIHABR",
                                      "KIHBRA", "KIHBAR", "KIHABR", "AKIHBR",
                                      "KIHBR"]
