axiom
   G( -5, -7.69421)
   A(36)
   S(10)
   p;

rules 4
 p= [P(1,0,0)S(S*sin(18)/cos(36)) p]f++
    [P(0,0,1)S(S*sin(18)/cos(36)) p]f++
    [P(0,1,0)S(S*sin(18)/cos(36)) p]f++
    [P(1,0.5,0)S(S*sin(18)/cos(36)) p]f++
    [P(1,0,1)S(S*sin(18)/cos(36)) p]f++;

end

rules 1
    p=(F++F++F++F++F++);
end