import Data.Typeable

ans :: Int -> String
ans x   | elem n [2, 4, 5, 7, 9] = "hon"
        | elem n [0, 1, 6, 8] = "pon"
        | otherwise = "bon"
        where 
            n = mod x 10


main = do  
    a <- getLine  
    let x = (read a :: Int)
    putStrLn $ ans x

