ref: 5df1e1690d92bbe74d89591bcb0c8f4841275bd3
dir: /test/torture.scm/
(define ones (map (λ (x) 1) (iota 1000000)))
(write (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))
(write (eval nst))
(newline)
(define longg (cons '+ ones))
(write (eval longg))
(newline)
(define (f x)
(begin (write x)
(newline)
(f (+ x 1))
0))