1#!/bin/guile
 2!#
 3(let a (
 4      (n 0)
 5      )
 6    (when (< n 8)
 7      (begin (format #t " \x1b[m\x1b[~am   \x1b[m " (+ n 100))
 8	     (a (+ n 1))
 9	     )
10  ))(newline)
11
12(let b (
13	(n 0)
14	)
15    (when (< n 1)
16      (let c (
17	      (m 0)
18	      )
19	(when (< m 8)
20	  (format #t " \x1b[m\x1b[~am   \x1b[m\x1b[~am \x1b[m"
21		  (+ m 100) (+ m 40))
22	  (c (+ m 1))
23	  )
24	)
25      (newline)
26      (b (+ n 1))
27      )
28    )
29
30(let d (
31	(n 0)
32	)
33  (when (< n 8)
34    (begin (format #t "  \x1b[m\x1b[~am   \x1b[m" (+ n 40)))
35    (d (+ n 1))
36    )
37  )(newline)