#!/usr/bin/perl -w -s

use Lingua::PT::PLN;

our($log);

my $file = shift;

my %ops=();
$ops{log}=$log if $log;

my %o = oco({%ops},$file);

for (sort { $o{$b}<=>$o{$a} } keys %o) {
  printf("%20s %d\n",$_,$o{$_});
}
