((lambda (file)
   (with-open-file (c-buffer file :direction :output :if-exists :supersede)
     (labels ((c-lang (expr) (format c-buffer "~A~%" expr)))
       (c-lang
	(c-directive :include "stdio" t)
	(c-function
	 "main" :integer nil
	 (list (c-parameter :integer "argc")
	       (c-parameter :char    "arv[]" t)
	       (c-number "a" nil 100)
	       (c-return :integer nil "a")))))))
 "test.lang.c")