let of_ascii_exn ?(offset=`offset33) x =
  match of_ascii ~offset x with
  | Some s -> s
  | None ->
    Error (sprintf "%c with offset %d is not a valid score" x
             (int_of_offset offset)) |! raise