challenge-134/abigail/scheme/ch-1.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14

;;;
;;; See ../README.md
;;;

;;;
;;; Run as: guile --no-auto-compile ch-1.scm
;;;

(use-modules (ice-9 format))

(define t #@1(789 798 879 897 978))
(do ((i 1 (1+ i)))
    ((> i (array-length t)))
    (format #t "1023456~d\n" (array-ref t i)))