11 lines
150 B
Common Lisp
11 lines
150 B
Common Lisp
(clear)
|
|
|
|
(defn print-file
|
|
(name index)
|
|
(fill
|
|
(text 0
|
|
(add
|
|
(mul index 40) 50) 40 name) "red"))
|
|
|
|
(each
|
|
(files) print-file) |