blob: aa4898cb69075f8f2d795d1194288cf5c87dec8c (
plain)
1
2
3
4
5
6
7
8
9
|
#include "stdlib.lisp"
(define str (read-file "tests/stringtest.lisp"))
(for 0 (length str) (lambda (i)
(if (= (mod i 60) 0)
(sys-put-string stdout (concat "<" (substr str i 10) ">"))
'())))
(print "")
|