sub flatten {
  my %hash = @_; 
  return join '', map "$hash{$_}$_", sort keys %hash;
}