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