#!/usr/bin/env perl
use strict;
my $p = Lingua::Word::Parser->new(
file => 'eg/lexicon.dat',
word => shift || 'abioticaly',
);
#warn Dumper $p->{lex};
# Find the known word-part positions.
my ($known, $masks) = $p->knowns;
#warn Dumper $known;
#warn Dumper $masks;
my $combos = $p->power;
#warn Dumper $combos;
my $score = $p->score_parts();
warn Dumper $score;