implement destructure in ash lisp