Not sure what this was

graphgif.scm

@@ -24,6 +24,24 @@
     ((10 . 40) (0 2 4) ,white)
     ((40 . 40) (1 2 3) ,white)))
 
+(define-syntax-rule
+  (for x n stmt ...)
+  (let loop ([x 0]
+	     [lst '()])
+    (if (< x n)
+	(loop (1+ x)
+	      (cons lst (stmt i)))
+	lst)))
+
+(define large-web
+  (let ([lst '()])
+    (do (i (1+ i))
+	((> i 10))
+      (do (j (1+ j))
+	  ((> j 10))
+	(set! lst (cons `((,i . ,j)
+  			  ,(map ))))))))
+
 (define (edge-painter cr graph)
   (lambda (node)
     (cairo-set-source cr black)