#!/usr/bin/perl

use utf8::all;
use dpl;
#use MLDBM qw(DB_File);
#use DB_File;
#use DBM_Filter;
#use Fcntl ;
use YAML ;
# use Data::Dumper;
#$Data::Dumper::Indent=1;
#$Data::Dumper::Terse=1;
# binmode(STDOUT, ":utf8");

#my $x= tie %h, 'MLDBM', "calao.dic.db", O_RDWR , 0640, $DB_BTREE;
#$x->Filter_Push("utf8");  # this is the magic bit

my $dic = dpl::opendb("calao.dic");
my $h   = $dic->{h}; 

# print(Dump($h)); 

for my $i (keys %$h){
  my $j=firstchoice($i);
  print "\n";
  print "TERM=$j\n";
  print "VARI=$i\n";
  if(ref($h->{$i}) eq "ARRAY"){
    for my $a (@{$h->{$i}}){
      print "SENSE=", Dump($a);
    }
  }
  else{ print "SKIPED"; } ## { Dumper($h->{$i}); }
  print "\n";
}

sub offfirstchoice{ my $a=shift;
  while(0
    or $a =~ s/\|.*?(?=[()]|$)//g 
    or $a =~ s/\*[A-Z]?//g
    or $a =~ s/[()]//g){};
  $a;
}