main :: IO ()
main = do
  n <- readLn
  putStrLn $ solve n

solve :: Int -> String
solve n
  | r `elem` [2,4,5,7,9] = "hon"
  | r `elem` [0,1,6,8]   = "pon"
  | r == 3               = "bon"
 where r = n `rem` 10
      
