main :: IO ()
main = do
  l1 <- getLine
  let n = read l1 :: Int
  putStrLn $ case n `mod` 10 of
    x | x `elem` [2, 4, 5, 7, 9] -> "hon"
      | x `elem` [0, 1, 6, 8] -> "pon"
      | otherwise -> "bon"
