let show_error ss se = 
  let rp = repeat_pattern in
  let spaces, errs = rp " " ss, rp "^" (se-ss) in
  epf "%s%s\n%!" spaces errs