Tile like code generation with fmt

tile-code-generation.lisp

;; http://250bpm.com/blog:149

(ql:quickload :fmt)
(ql:quickload :access)

(defparameter *data* 
           '(("Afghanistan" . "Kabul")
             ("Brazil" . "Brasilia")
             ("Canada" . "Ottawa")))

(let* ((body (fmt:with-fmt ()
                  (:do (item *data*)
                      "printf(\"" (car item) " is the capital of " (cdr item) "\");" #\newline)))
       (program (fmt:with-fmt ()
                    "#include <stdio.h>" #\newline #\newline
                    "int main(void) {" #\newline
                    body
                    "return 0;")))
   program)