#!/usr/bin/perl

use strict;
use Lingua::Dici;
use Data::Dumper; 

my $filename = shift or die "usage: ./dici2tex filename";

my $dict = Lingua::Dici::parse($filename);
##print Dumper ($dict);

Lingua::Dici::dict2tex($dict);