baseline => sub {
		my ( $n, $list ) = @_;
		return ( sort { $a <=> $b } @$list )[ @$list - $n .. $#$list ];
	},