diff --git a/graphgif.scm b/graphgif.scm
index b4a03e4..9a80dec 100644
--- a/graphgif.scm
+++ b/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)