let get_example_parse dir example = let tokens = get_example_scan dir example in Parser.cdecls (WhiteSpace.lextoks tokens) (Lexing.from_string "")