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";