#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	my %okpreps = map { $_ => 1 } map { $this->$_ } $this->visiblepreps;
	return grep { ! $_->hidden && $okpreps{($_->preposition)[0]} }
	            $this->contents->list
}
