use strict;
use Quantum::Superpositions;

my $s = any( 1 .. 4 );
   $s = $s != 1;
   $s = $s != 2;
my @e = eigenstates( $s );

print "Am I on to something? @e\n";

##</code><code>##

my $t = any(1 .. 4); $t = $t != $s;

##</code><code>##

   $t = $t != $_ for eigenstates( $s );