#!/usr/bin/perl -I..

use dag;
use Data::Dumper;

open F, shift or die "Cannot open file: $!";
{
  local $/;
  undef($/);
  $text = <F>;
}
close F;

$grammar = dag::parse($text);
$dag::typeof = sub {
  my ($filename,$d) = @_;
  if (-d $filename) {
    return "Dir";
  } else {
    return "File";
  }
};
dag::run($grammar, "teste");