;; clear all vars (define impc:ti:clear-all-vars (lambda (vars) (map (lambda (x) (set-cdr! x '())) vars)))