let readFile (fileName : string) : string =
   let channel = open_in fileName in
   let res = ref "" in
   (try
   begin
    while true do
     let line = input_line channel
     in res:=(!res) ^ "\n" ^ line ; 
    done;
   end;
   with
   End_of_file ->
   begin
   close_in channel;
   end);
   !res