Class Main
    Public Shared Sub Main()
    Dim S As string = console.readline()
    select case S.Substring(S.Length - 1)
    case "3"
          Console.WriteLine("bon")
    case "0","1","6","8" 
      Console.WriteLine("pon")
    case "2","4","5","7","9"
          Console.WriteLine("hon")
    end select
   End Sub
End Class