import Data.Char (digitToInt)

main :: IO ()
main = interact $ solve

solve :: String -> String
solve s
	| t == 3 = "bon"
    | t == 0 || t == 1 || t == 6 || t == 8 = "pon"
    | otherwise = "hon"
	where
    	t = digitToInt . last $ s