+let file_content =
+ let buffer = Buffer.create 128 in
+ begin fun f ->
+ Buffer.clear buffer;
+ try
+ let in_f = open_in f in
+ while true do
+ let line = input_line in_f in
+ Buffer.add_string buffer line;
+ Buffer.add_char buffer ' ';
+ done;
+ failwith "finished"
+ with
+ e -> let s = Buffer.contents buffer in s
+ end
+
+let target = ref [ ]