use Quantum::Superpositions;

my @a = ( 5 .. 8 );

print "Of @a:\n\n";

for ( 4, 6, 8 )
{
	print any(@a) > $_ ? "any > $_\n" : "not any > $_\n";
	print all(@a) > $_ ? "all > $_\n" : "not all > $_\n";
}