ref: 6e44f3442f1aaf7ef3a201e365529d25c9cecc6c
dir: /test/mp.sl/
(def x 9999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999) (apply * (map-int (λ (_) x) 1000))