*eshell*.txt

scheme@(guile-user)> ,use (wak foof-loop)
scheme@(guile-user)> ,optimize (loop ((for i (in-vector v1))
	                                   (for j (in-vector v2)))
                                      (loop ((for k (in-vector v1))
                                             (for l (in-vector v2)))
                                         (f i j k l)))
$1 = (let* ((vector-1 v2)
       (t-1105 (vector-length vector-1))
       (vector v1)
       (t-1108 (vector-length vector)))
  (let loop-procedure ((index-1 0) (index 0))
    (if (let ((t (>= index t-1105)))
          (if t #t (>= index-1 t-1108)))
      (if #f #f)
      (let* ((t-1161 (vector-ref vector-1 index))
             (t-1162 (vector-ref vector index-1)))
        (let* ((vector-1 v2)
               (t-1992 (vector-length vector-1))
               (vector v1)
               (t-1995 (vector-length vector)))
          (let loop-procedure ((index-1 0) (index 0))
            (if (let ((t (>= index t-1992)))
                  (if t #t (>= index-1 t-1995)))
              (if #f #f)
              (let* ((t-2048 (vector-ref vector-1 index))
                     (t-2049 (vector-ref vector index-1)))
                (f t-1162 t-1161 t-2049 t-2048)
                (loop-procedure (#{1+}# index-1) (#{1+}# index))))))
        (loop-procedure (#{1+}# index-1) (#{1+}# index))))))