import streams, sequtils, strutils, algorithm, math, future, sets, tables, hashes
proc `ceilDiv`*[T](x, y: T): T = x div y + ord(x mod y != 0)
proc `//=`*(x: var SomeInteger; y: SomeInteger) = x = x div y
proc `%=`*(x: var SomeInteger; y: SomeInteger) = x = x mod y


var
    N = stdin.readLine
    s = parseInt($N[^1])
if s in [2,3,4,7,9]:
    echo "hon"
elif s in [0,1,6,8]:
    echo "pon"
else:
    echo "bon"