1:	lot		->Size(50 * rand(0.5,1), 50 * rand(0.5, 1), 50 * rand(0.5, 1)) {new_lot}
2:	new_lot	->Subdiv(X, 1^, 1^) {ra | ra}
3:	ra		->Subdiv(X, 1^, 1^) {rb | rb}
4:	rb		->Subdiv(Y, 1^, 1^) {rc | rc}
5:	rc		->Subdiv(Y, 1^, 1^) {rd | rd}
6:	rd		->Subdiv(X, 1^, 1^) {re | re}
7:	re		->Subdiv(X, 1^, 1^) {rf | rf} : 0.8
			->Replace(final) : 0.2
8:	rf		->Subdiv(Y, 1^, 1^) {rg | rg} : 0.8
			->Replace(final) : 0.2
9:	rg		->Subdiv(Y, 1^, 1^) {rh | rh} : 0.8
			->Replace(final) : 0.2
10:	rh		->Subdiv(X, 1^, 1^) {ri | ri}
11:	ri		->Comp("sidefaces") {final}
end