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