import Control.Monad
import Data.Maybe
import qualified Data.ByteString.Char8 as BS
import Data.List

readInt = fst . fromJust . BS.readInt
getInt = readInt <$> BS.getLine

main = do
    n <- (`mod` 10) <$> getInt
    let ans | n == 3 = "bon"
            | n == 0 || n == 1 || n == 6 || n == 8 = "pon"
            | otherwise = "hon"
    putStrLn ans