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

##</code><code>##

%h ==> keys ==> sort { $a<==>$b } ==> map { $_, %h{$_} } ==> [0,1] ==> %h;

##</code><code>##

%h <== [0,1] <== map { $_, %h{$_} } <== sort { $a<==>$b } <== keys <== %h;