(setq i 0 x 0 y 1 z 0 v 0 w 0)
(command "layer" "m" "3" "c" "3" "3" "")
(while (< i 30)
 (command "line" (list v w) (list x y) (list v w) "c")
 (setq i(+ i 1) v x w y a 0.1 z y x(+ x a) y(exp x))
)
(command "zoom" "e")