#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	my @contents=grep { ! $_->hidden} $this->contents->list;
	return $this->prettylist(@contents);
}
