1 2 3 4 5
( # make a opaque callable without arguments that returns given value (let id (lambda '(x) (Apply (Callable (CallableType '() '((TypeOf x))) (lambda '() x))))) (export id) )