4 lines
165 B
Common Lisp
4 lines
165 B
Common Lisp
; (system-cmd-fork "ml" "-c" "(print 123) (sleep 1) (print \"aaa\")")
|
|
|
|
(print (reduce (lambda (acc e) (+ acc (string (+ "<th>" e "</th>")))) "" '("h1" "h2" "h3"))
|
|
) |