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

#define maxgen 30   /* not 45 as in text */
#define delta  45

#define D 7	/* apical delay */
#define R 1.17	/* 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)
