let print_diffs oc ?offset l =
  Printf.fprintf oc "%s" (string_of_diffs ?offset l)