let parse_filename filename = let channel = open_in filename in let ast = parse channel filename in close_in channel; ast