module ABC086A
  sub Main(ByVal args() as String)
    select Console.ReadLine() mod 10
    case 2,4,5,7,9:
        Console.WriteLine("hon")
    case 0,1,6,8:
        Console.WriteLine("pon")
    case else:
        Console.WriteLine("bon")
    end select
  end sub
end module