program main
      implicit none
      integer :: k, n

      read *, k

      n = mod(k,10)
      if ( ( n == 0) .or.( n == 1 ) .or. ( n == 6 ) .or. ( n == 8 ) ) then
        print *, 'pon'
      else if ( n == 3 ) then
        print *, 'bon'
      else
        print *, 'hon'
      end if

end program main
