words_no_nqp.p6

my %words;

given slurp("part-of-speech.txt") {
    my int $pos = 0;
    my int $chars = $_.chars;
    while $pos < $chars {
        my int $tab = $_.index("\t", $pos);
        my int $nl = $_.index("\n", $tab);
        %words{$_.substr($pos, $tab - $pos)} =
            $_.substr($tab + 1, $nl - $tab - 1);
        $pos = $nl + 1;
    }
}