Select Code to Download

(set! 'h 
  (hash-new
...
      (flatten-map (lambda (x) (list x (hash-get h x)))
        (sort stringcomp
          (hash-keys h))))))

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

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