let readFile_and_give_line_number (fileName : string) : string * int =
   let channel = open_in fileName in
   let res = ref "" in
   let line_number = ref 0 in
   try
   begin
    while true do
     let line = input_line channel
     in res:=(!res) ^ "\n" ^ line ; 
     line_number := (!line_number)+1;
    done;
   end;
   failwith "problem"
   with
   End_of_file ->
   begin
   close_in channel;
   ((!res),(!line_number));
   end