main :: IO ()
main = f <$> readLn >>= putStrLn
  where
    f n = case n `mod` 10 of
      _n
        | any (== _n) [2, 4, 5, 7, 9] -> "hon"
        | any (== _n) [0, 1, 6, 8] -> "pon"
        | otherwise -> "bon"
