hello.scheme

(begin
	(define (isEmpty l) (= 0 (length l)))
	(define
		(printList lst)
		(if (isEmpty lst)
			(void)
			(let
				((f (car lst)) (t (cdr lst)))
				(begin
					(display (number->string f))
					(printList t)
				)
			)
		)
	)
	(define (addOne l) (map (lambda (x) (+ 1 x)) l))
	(let loop ((i 1)) (display i) (thread-sleep 0.1) (if (< i 100) (loop (+ i 1)) (void)))
)