#!/usr/bin/perl -w
use Quantum::Entanglement;
my $die = entangle( 1=>1, 1=>2, 1=>3, 1=>4, 1=>5, 1=>6 );
print "Pre-observation:  ".$die->show_states;
print "Observation:        $die\n";
print "Post-observation: ".$die->show_states;
# print:
# 
# Pre-observation:  1|1>	1|2>	1|3>	1|4>	1|5>	1|6>
# Observation:        3
# Post-observation: 1|3>