let of_ascii ?(offset=`offset33) x =
  let offset = int_of_offset offset in
  let c = Char.to_int x in
  if offset <= c && c <= 126 then
    Some (c - offset)
  else
    None