Procedure myScript;

VAR
i,ii,iii,x,y,x1,y1,x2,y2,y3 : INTEGER;

BEGIN
For i:=0 TO 10 DO BEGIN

	For ii:=0 TO 10 DO BEGIN

		OpenPoly;
		BeginPoly;
			y:=0;
			x:=ii*10+i*200;

			AddPoint(x,y);

			For iii:=0 TO 10 DO BEGIN

				y1:=y+Random*10;
				x1:=x+Random*3;
				AddPoint(x,y1);
				AddPoint(x1,y1);
		
				y2:=y1+Random*10;
				x2:=x-Random*5;
				AddPoint(x1,y2);
				AddPoint(x2,y2);

				y3:=y2+Random*10;
				AddPoint(x2,y3);
				AddPoint(x,y3);

				y:=y2;

			END;

		EndPoly;
	END;
END;

(*  Rect(-50,-50,2200,350)  *);

END;
RUN(myScript);