solve :: Char -> String
solve '0' = "pon"
solve '1' = "pon"
solve '2' = "hon"
solve '3' = "bon"
solve '4' = "hon"
solve '5' = "hon"
solve '6' = "pon"
solve '7' = "hon"
solve '8' = "pon"
solve '9' = "hon"

main :: IO ()
main = do
 n <- getLine :: IO String
 putStr $ solve (last n)