axiom
#  G(-2, -2.75276, 4.45407)
   X(acos(tau/(tau+2)))   Y(180)  Z(36)
   S(4)
#   c;
rules 1
   c=[qp 
       [
        [>---qp]f++
        [>---qp]f++
        [>---qp]f++
        [>---qp]f++
        [>---qp]
       ]
       +++f--f<++f++f>--f--f<++
       qp
       [
        [>---qp]f++
        [>---qp]f++
        [>---qp]f++
        [>---qp]f++
        [>---qp]
     ] ];
end
rules 4
   q= [ + #S((S/2)/cos(36))# f
          #S(2*cos(72)*S)# f ^ [d]
       [>---q]f++
       [>---q]f++
       [>---q]f++
       [>---q]f++
       [>---q]f++
       [+++f--f<++f++f>--f--f<++ q]   
      ];
end
rules 1
   d=[ p 
       [
        [>---p]f++
        [>---p]f++
        [>---p]f++
        [>---p]f++
        [>---p]
       ]
       +++f--f<++f++f>--f--f<++
       p
       [
        [>---p]f++
        [>---p]f++
        [>---p]f++
        [>---p]f++
        [>---p]
     ]];
   q=; 
end
rules 1
   p=[(F++F++F++F++F)];
end