(def (hins1)  (let ((h (table)))    (dotimes (n 200000)      (put! h (mod (rand) 1000) 'apple))    h)) (def (hread h)  (dotimes (n 200000)    (get h (mod (rand) 10000) NIL))) (time (dotimes (i 100000)        (table :a 1 :b 2 :c 3 :d 4 :e 5 :f 6 :g 7 :foo 8 :bar 9)))(time (dotimes (i 100000) (table :a 1 :b 2 :c 3 :d 4 :e 5 :f 6 :g 7 :foo 8)))(time (dotimes (i 100000) (table :a 1 :b 2 :c 3 :d 4)))(time (dotimes (i 100000) (table :a 1 :b 2)))(time (dotimes (i 100000) (table)))