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

use Data::Dumper;
use dag;

%%

Dir ---> Dir* File*;

::{
	$dag::ts{i}=length($_->{_});
}

::lista<i>={
	join("\n",map {$_->{_}} @File)
}

File;

::.name = {
	rev($_->{_})
}

::!x ={
	Dumper($_);
}

%%

sub rev {
	my $x = shift;
	return join("",reverse split(//,$x));
}

sub typeof {
    my ($filename,$d) = @_;
    if (-d $filename) {
      return "Dir";
    } else {
      return "File";
    }
};