(mapcar #'(lambda (z) (load z) (compile-file z) (ed z))
	'("parser-gen.lisp" "mic-asm.lisp"))