(set! 'h 
  (hash-new
    (array-slice (1 2)
      (flatten-map (lambda (x) (list x (hash-get h x)))
        (sort stringcomp
          (hash-keys h))))))