module X(float x);
module Y(float x);

final int alpha = 90;
final float factor = 0.5;

protected void init ()
[
	Axiom ==> X(2);
]

public void run ()
[
//X ? -YF+XFX+FY-
//Y ? +XF-YFY-FX+

	X(x) ==> RU(-alpha) Y(factor*x) F(x) RU( alpha) X(factor*x) 
			 F(x) X(factor*x) RU( alpha) F(x) Y(factor*x) RU(-alpha);
	Y(x) ==> RU( alpha) X(factor*x) F(x) RU(-alpha) Y(factor*x) 
			 F(x) Y(factor*x) RU(-alpha) F(x) X(factor*x) RU( alpha);
]