1:	lot		->Size(100, 100 * rand(0.7, 1.3), 50) {new_lot}
2:	new_lot		->Subdiv(X, 1^, 2^, 1^) {branch | main | branch} : 0.8
			->Subdiv(X, 1^, 2^, 1^) {e | main | e} : 0.1
			->Subdiv(X, 3^, 1^) {main | e} : 0.1

3:	main		->Subdiv(Y, 8^, 1^) {main_bot | tip} : 0.5
			->Replace(main_bot) : 0.5
4:	tip		->Subdiv(X, 1^, 1^, 1^) {e | tip_t | e}
5:	tip_t		->Subdiv(Z, 1^, 1^, 1^) {e | tip_f | e}
6:	tip_f		->Subdiv(Y, 2^, 1^) {terminal | tip_top} : 0.5
			->Replace(terminal) : 0.5
7:	tip_top		->Subdiv(X, 1^, 1^, 1^) {e | tip_top_t | e}
8:	tip_top_t	->Subdiv(Z, 1^, 1^, 1^) {e | tip_top_f | e}

90: main_bot	->Comp("sidefaces") {mbt}
9:	mbt	->Subdiv(X, 1^, 1^) {mb_half | mb_half}
10:	mb_half		->Subdiv(Y, 1^, 1^) {mb_quart | mb_quart}
11:	mb_quart	->Subdiv(X, 1^, 5^, 1^) {terminal | mb_quart_t | terminal}
12:	mb_quart_t	->Subdiv(Y, 1^, 5^, 1^) {terminal | mb_quart_f | terminal}
13:	mb_quart_f	->Subdiv(X, 1^, 1^) {mbq_a | mbq_a}
14:	mbq_a		->Subdiv(Y, 1^, 1^) {mbq_b | mbq_b}
15: mbq_b		->Subdiv(X, 1^, 1^) {mbq_c | mbq_c}
16: mbq_c		->Subdiv(Y, 1^, 1^) {mbq_d | mbq_d}

17:	branch		->Comp("sidefaces") {branch_faces}
18: branch_faces->Subdiv(X, 1^, 1^, 1^) {branch_faces_f | branch_faces_f | branch_faces_f}
19:	branch_faces_f->Replace(mbt)

99:	e		->Replace(empty)
end