--- /dev/null
+#! /usr/bin/perl
+use strict;
+use warnings;
+
+my $tree;
+LINE: while (<>) {
+ chomp;
+ my $base=\$tree;
+ warn($_),next if !s#^/##;
+ warn($_),next if m#//#;
+ warn($_),next if m#/$#;
+ for (split qr#/#) {
+ next LINE if ${$base}->{""};
+ $base=\(${$base}->{$_});
+ }
+ ${$base}->{""}=1;
+ }
+#use Data::Dumper;
+#print Dumper $tree;
+
+sub out($$);
+sub out($$)
+{
+my($base,$where)=@_;
+
+ if ($base->{""}) {
+ print $where."\n";
+ return;
+ }
+ for (sort keys(%$base)) {
+ next if $_ eq "";
+ out($base->{$_},"$where/$_");
+ }
+}
+
+out($tree,"");