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