# Pastebin IOEmDB48
#!/usr/bin/env raku

=begin pod 

This script lets ypu adjust items in the budgetcatmap.txt file.

=end pod 

use MONKEY-SEE-NO-EVAL;

constant $oldcats = 'budgetcatmap-old.txt';
constant $newcats = 'budgetcatmap-new.txt';

my %oldcats = EVAL slurp $oldcats;
my %roldcats = %oldcats.invert;

my %newcats = %oldcats;
say %newcats.keys;

say "arrayifying & uniquifying all %newcats values";

for %newcats.keys -> $key {
   %newcats{$key} = [%newcats{$key}.unique]; 
}

say "type <<%newcats>> to see & update Hash, <<exit>> to write back";
repl;

$newcats.IO.spurt: %newcats.raku;