#!/usr/bin/perl

use Graph::Easy::Parser;
        my $parser = Graph::Easy::Parser->new();

        my $graph = $parser->from_text(
"[ 0 ] -> [ 1 ]".
"[ 1 ] -> [ 202 ]".
"[ 1 ] -> [ 300 ]".
"[ 1 ] -> [ 344 ]".
"[ 300 ] <-> [ 344 ]".
"[ 300 ] <-> [ 502 ]".
"[ 300 ] <-> [ 506 ]".
"[ 300 ] -> [ 2 ]".
"[ 2 ] -> [ 3 ]".
"[ 3 ] -> [ 4 ]".
"[ 4 ] -> [ 5 ]".
"[ 5 ] <-> [ 440 ]".
"[ 5 ] <-> [ 500 ]".
"[ 5 ] <-> [ 505 ]".
"[ 5 ] -> [ 6 ]".
"[ 5 ] -> [ 508 ]".
"[ 508 ] -> [ 6 ]".
"[ 6 ] <-> [ 503 ]".
"[ 6 ] <-> [ 507 ]".
"[ 6 ] -> [ 7 ]".
"[ 7 ] <-> [ 503 ]".
"[ 7 ] <-> [ 507 ]".
"[ 7 ] -> [ 200 ]".
"[ 200 ] -> [ 202 ]".
"[ 202 ] -> [ 201 ]".
"[ 6 ] -> [ 201 ]"
);                         
print $graph->as_ascii();