/*
   Compound leaf.
   Figure 5.11a pg. 129
 */

#define maxgen 8    /* not 10 as in text */
#define delta  45

#define D 0	/* apical delay */
#define R 2	/* internode elongation rate */

START : A(0)

p1 : A(d) : d > 0 -> A(d-1)
p2 : A(d) : d = 0 -> F(1)[+A(D)][-A(D)]F(1)A(0)
p3 : F(a)	  -> F(a*R)
