#!/usr/bin/perl -s

my $c  = shift || "/home/jj/TMX/Constituicao-pt.en.tmx";
my $id = shift || "__jj1-constituicao";

system("nat-create","-tmx","-ngrams","-id=$id",$c);