RosettaCodeData/Task/Long-multiplication/Ol/long-multiplication.ol

4 lines
167 B
Text
Raw Permalink Normal View History

2019-09-12 10:33:56 -07:00
(define x (* 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2)) ; 2^64
(print (* x x))