val parse_file : ?cwd:string -> string -> (Digest.t * Ast.Program.decl list) list