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