ref: bda4940a4be038f85887cb93c2fdc60db6b4d41a
dir: /test/mp.lsp/
(define x 9999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999) (apply * (map-int (λ (_) x) 1000))