let string_of_file (path:string):string = let ic = open_in path in let s = In_channel.input_all ic in let _ = close_in ic in s