#include <ecl/ecl.h>

extern void init_parse_radio(cl_object cblock);

int
main(int argc, char **argv)
{
	cl_boot(argc, argv);

	read_VV(OBJNULL, init_parse_radio);
	
	cl_object form1 
	    = c_string_to_object(
                 "(print (eval"
                  "(append `(assoc-filter-dir ,(read))"
                  "(loop for l = (handler-case (read t) (end-of-file (e) nil))" 
                  "while l collect l))))");
	cl_eval(form1);

	cl_object form2 = c_string_to_object("(terpri)");
	cl_eval(form2);

	cl_shutdown();
	return 0;
}