use Exporter;
our @ISA = qw(Exporter);
-our @EXPORT = qw(parse_input_graph o %region %adj);
+our @EXPORT = qw(parse_input_graph o plag_prs %region %adj);
our %region;
# $region{NAME}{Colour}
sub o { print @_ or die $!; }
+sub plag_prs ($) {
+ my ($t) = @_;
+ $t = $` if $t =~ m/\n/;
+ $t =~ s/ //g;
+ $t =~ s/-//g;
+ return "$t";
+}
+
sub parse_input_graph () {
read_in();
resolve_arefs();