let of_int_exn x =
  if x >= 0 then x
  else Error (sprintf "invalid PHRED score %d" x) |! raise