readHon :: Int -> String
readHon n
 | dig1 == 2 || dig1 == 4 || dig1 == 5 || dig1 == 7 || dig1 == 9  = "hon"
 | dig1 == 0 || dig1 == 1 || dig1 == 6 || dig1 == 8               = "pon"
 | dig1 == 3                                                      = "bon"
 where dig1 = n `mod` 10

main = do
    n <- read <$> getLine
    putStrLn $ readHon n