Jean Louis wrote: > (defun elbf-char (n) > (concat "(+ " (string-replace "*" "(*)" (make-string n ?*)) ")")) > > (defun elbf-string (string) > (let ((list (string-to-list string))) > (with-temp-buffer > (insert "(string ") > (while list > (insert (elbf-char (pop list)))) > (insert ")") > (buffer-string))))
Not bad! Only: Hard coding the same data several times -> court martial. But it's not like there is real punishment or anything ... -- underground experts united https://dataswamp.org/~incal