; (system-cmd-fork "ml"  "-c" "(print 123) (sleep 1) (print \"aaa\")")

(print (reduce (lambda (acc e) (+ acc (string (+ "<th>" e "</th>")))) "" '("h1" "h2" "h3"))
)