main :: IO ()
main = do
  n <- readLn :: Int
  let m = n `mod` 10
  putStrLn $ solve m

solve :: Int -> String
solve x
  | x == 3 = "bon"
  | x == 0 or x == 1 or x == 6 or x == 8 = "pon"
  | otherwise = "hon"