multi sub infix:<-> (%main, %dict)  {
    my %difference;
    for %main.keys -> $word            {
         %difference{$word}  =  1  unless %dict{$word}:exists;
    }
    return %difference;
}

##</code><code>##

my %missing-words = %book-words - %dictionary;