startshape FORKTREE

rule FORKTREE{
	FORK {}
}	

rule FORK {
	SQUARE {}
	PRONG  {x  1 y 0 b 0.07 s 0.9 r -90}
	PRONG  {x  0 y 1 b 0.07 s 0.9 r  00}
	PRONG  {x -1 y 0 b 0.07 s 0.9 r  90}
}

rule PRONG {
	SQUARE {}
	PRONG   {y 1 s 0.9}
}

rule PRONG 0.15 {
	FORK { b 0.015}
}