main = do
    str <- getLine
    let d = (judge . takeOne) str
    putStrLn d


takeOne::String -> Char
takeOne n = head $ reverse n 

judge::Char -> String
judge '3' = "bon"
judge '0' = "pon"
judge '1' = "pon"
judge '6' = "pon"
judge '8' = "pon"
judge x = "hon"