commit 13f7dc6

??? idek

 1@@ -13,8 +13,17 @@
 2     ((< l 0))
 3   (set! m-list (cons (line-parse (list-ref f-list l)) m-list)))
 4 
 5-(display (reverse m-list))
 6-(newline)
 7+(display m-list)
 8+(newline)(newline)
 9+
10+(do ((o 0 (+ o 1)))
11+    ((>= o (length m-list)))
12+  (let ((rule (list-ref m-list o)))
13+    (do ((p 0 (+ p 1)))
14+        ((>= p (length (list-ref rule 1))))
15+      (format #t "~a needs ~a\n"
16+              (list-ref rule 0)
17+              (list-ref (list-ref rule 1) p)))))
18 
19 ;; (display (list-ref (list-ref (list-ref m-list 0) 1) 0))
20