(
(let $sqr (lambda '($x) (* $x $x)))
(export $sqr)
)