ref: 63558a798d4b3a1833f097a9b8d8c27e28402463
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))