@(do (defvar *h* (make-hash nil nil nil))
(each ((k '(a b c))
(v '(1 2 3)))
(set [*h* k nil] v))
(dohash (k v *h*)
(format t "~a -> ~a\n" k v))))