sub b{
  my( $e, $l ) = @_;
  my @g;
  for(sort keys %$l){
    push @g, [ $_, '=', (split //,'#' x int($$l{$_} * $e))]
  }
  return @g
}