#!/usr/bin/perl -w
use strict;

use Getopt::Long;
use File::Path;
use Pod::Usage;
use TexId;



my $tex = TexId->new(progress => 1);



$tex->load_file_data('../GenCS/notes.tex');

my ($a, $b) = $tex->environments();
print $b, "\n";

print $tex->snippath(), "\n";

$tex->parse('../GenCS/notes.tex');
#print join(', ', $tex->use_env_list('omtext')), "\n";

#print $tex->edit_dist('anaIU', 'aanUI'), "\n";

$tex->check_uniq;
$tex->check_prefix;
$tex->apply_changes;