module A(float len);

protected void init ()
[
	Axiom ==> A(0.5);
]

public void run ()
[
	a:A(x) ==> F(x) RU(90) 
	[[F(x) [RL(90) F(3.4*x) RU(-90) F(3.333*x) 
			[RL(-63.5) F(1.118*x)] RL(116.5) F(1.118*x)] 
		   RL(-90) F(3.4*x) RU(-90) F(3.333*x) 
			[RL(63.5) F(1.118*x)] RL(-116.5) F(1.118*x)] 
		   M(-.05) Box.(setHeight(3.5), setWidth(.2), setLength(2.2*x))] 
	F(2*x) RU(-90)a;
]