1 2 3 4 5 6 7 8
(function f (BigInt) BigInt :merge (from-string (to-string (* new old)))) (set (f (bigint 1)) (bigint 5)) (set (f (bigint 1)) (bigint 2)) (set (f (bigint 1)) (bigint 3)) (check (= (f (bigint 1)) (bigint 30)))