#!/usr/bin/perl -w

use strict;
use Carp;
use Data::Dumper;

BEGIN { unshift @INC, qw(.); }

use Parse;

die if @ARGV;

parse_input_graph();

print Dumper(\%region);