let readFile_to_list (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