1 2 3 4 5 6
(include *strict-cl-21*) (import std.assert exposing assert) (defun F (X) (lambda ((& X) Y) (assert (not (= X 13)) (list (+ X Y) (* X Y))))) (export (X Y) (a (F X) (list Y)))