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