shebang

gem300.rkt

@@ -1,3 +1,4 @@
+#! /usr/bin/env /usr/local/bin/racket
 #lang racket
 
 (require (prefix-in net: "net.rkt")

gmi.rkt

@@ -110,7 +110,7 @@
   (define (inner-iter acc rst)
     (let ([line (string-join acc)])
       (if (or (empty? rst)
-              (> (string-length line) 80))
+              (> (string-length line) 40))
           (values acc rst)
           (inner-iter (append acc (list (car rst)))
                       (cdr rst)))))