open Base
open Stdio

let () =
  match In_channel.input_line In_channel.stdin with
  | None -> failwith "cannot read input"
  | Some x ->
    let last_char = String.get x ((String.length x) - 1) in
    let num = Int.of_string (String.make 1 last_char) in
    match num with
    | 2 | 4 | 5 | 7 | 9 -> print_endline "hon"
    | 0 | 1 | 6 | 8 -> print_endline "pon"
    | 3 -> print_endline "bon"
    | _ -> failwith "unreachable"
