unit :: Char -> String
unit n
    | n `elem` ['2', '4', '5', '7', '9'] = "hon"
    | n `elem` ['0', '1', '6', '8'] = "pon"
    | n `elem` ['3'] = "bon"

main :: IO()
main = do
    n <- getLine
    putStrLn $ unit ( last n )