let readFile (fileName : string) : string list =
   let channel = open_in fileName in
   let res = ref [] in
   try
   begin
    while true do
     let line = input_line channel
     in res:=line::(!res); 
    done;
   end;
   failwith "problem"
   with
   End_of_file ->
   begin
   close_in channel;
   List.rev (!res);
   end