1 2 3 4 5 6 7 8 9 10 11
(in-package #:l-system-examples) (-> f (x) (f 1) (j 1) (f 1)) (-> j (x) (j (* 3 x))) (l-system '((f 1.0)) 2)