package Quantum::Heisenberg;
sub TIESCALAR { bless [], $_[0] }
sub STORE { push @{$_[0]}, $_[1] }
sub FETCH { my $self = shift; $self->[int rand @$self]; }
1;