#axiom
C(0,0)
#F++F++F++
#rules
C(i,n) : i>=1 ->  C(0,n)[+(n*137.5)f(0)S]
C(i,n) : i<1 -> C(i+0.1,n+0.1)
f(a) -> f((a^2+0.0003)^0.5)
#C(i) -> C(i+1)[+(i*137.5)f(0.3*i^0.5)S]
#end rules