ref: 3fbd5e7da60f0f537a99cd65c680a0017a71a100
dir: /femtolisp/torture.scm/
(define ones (map (lambda (x) 1) (iota 1000000)))
(display (apply + ones))
(newline)
(define (big n)
(if (<= n 0)
0
`(+ 1 1 1 1 1 1 1 1 1 1 ,(big (- n 1)))))
(define nst (big 100000))
(display (eval nst))
(newline)
(define longg (cons '+ ones))
(display (eval longg))
(newline)
(define (f x)
(begin (display x)
(newline)
(f (+ x 1))
0))