path: root/examples/l-system-exemple.lisp

(in-package #:l-system-examples)

(-> f ()
  (f 1)
  (j 1)
  (f 1))

(-> j (x)
  (j (* 3 x)))

(l-system '((f 1.0)) 2)