let
parse_pnext s =
parse_int_range
"PNEXT"
0 2147483647 s >>|
function
|
0
->
None
|
x
->
Some
x