module Main where

getAns :: String -> String
getAns s
	| last s `elem` "24579" = "hon"
	| last s `elem` "0168" = "pon"
	| last s == '3' = "pon"


main = do
	input <- getLine
	putStrLn . getAns $ input

