let writer accum data =
  Buffer.add_string accum data;
  print_string data;
  String.length data

let showContent content =
  Printf.printf "%s\n\n\n\n" (Buffer.contents content);
  flush stdout