:let line = getline(1)
:let num = str2nr(line, 10)
:let lowest = num % 10
:let bon_list = [3]
:let hon_list = [2, 4, 5, 7, 9]
:if match(bon_list, num) >= 0
  :call setline(1, 'bon')
:elseif match(hon_list, num) >= 0
  :call setline(1, 'hon')
:else
  :call setline(1, 'pon')
:endif
:wq
