1(import (rumble) 2 (linklet)) 3 4(define l1 (compile-linklet 5 '(linklet 6 () ; imports 7 (f x) ; exports 8 (define-values (f) (lambda (y) (add1 y))) 9 (define-values (x) 5) 10 'done) 11 'l1)) 12 13(define l2 (compile-linklet 14 '(linklet 15 ((f x)) ; imports 16 () ; exports 17 (display (f x)) 18 (newline)))) 19 20(instantiate-linklet l2 (list (instantiate-linklet l1 '()))) 21