#######################################
## L Lindenmayer.

L = function (a,f) c(sapply(a,f))
#######################################
## LS Funzioni che definiscono sistemi di Lindenmayer.

# Successione di Morse.
Ls.morse = function (x)
P.quale(x,0,c(0,1),1,c(1,0))

# Successione di Morse lunga.
Ls.morsel = function (x)
P.quale(x,0,c(0,1),1,c(1,2),2,c(2,0))