my $s = <>;chomp $s;
my @dat = split(//,$s);
#print "$dat[-1]\n"; 
if( $dat[-1] == 3){
    print "bon";
}elsif($dat[-1]==0||$dat[-1]==1||$dat[-1]==1||$dat[-1]==1){
    print "pon";
}else{
    print "hon";
}