SET WINDOW -0.1,1.1,-0.1,1.1
DRAW square(1/2)
FOR i=1 TO 6
   FOR j=1 TO 2^i
      LET Q=SOUWA(i)/(2^i-1)
      DRAW square((1/2)^(i+1)) WITH SHIFT(Q*(j-1),Q*(2^i-j))
      !DRAW square(2^(-1*(i+1))) WITH SHIFT(Q*(j-1),Q*(2^i-j))
   NEXT j
NEXT i
PLOT LINES:0,0;1,0
PLOT LINES:0,0;0,1
END

EXTERNAL FUNCTION SURET(n)
IF n=1 THEN
   LET SURET=1/2
ELSE
   LET SURET=SURET(n-1)/2
END IF
END FUNCTION

EXTERNAL FUNCTION SOUWA(n)
LET C=0
FOR i=1 TO n
   LET C=C+SURET(i)
NEXT i
LET SOUWA=C
END FUNCTION

EXTERNAL PICTURE square(a)
PLOT LINES: 0,0;a,0;a,a;0,a;0,0
END PICTURE