main :: IO ()
main = do
  n <- readLn :: IO 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"
