Imports System

Module Program
    Sub Main(args As String())

        Dim N As String = Console.ReadLine()

        Dim ans As String
        Select Case Right(N, 1)
            Case 3
                ans = "bon"
            Case 0, 1, 6, 8
                ans = "pon"
            Case Else
                ans = "hon"
        End Select

        Console.WriteLine(N & ans)

    End Sub
End Module
