use Quantum::Superpositions;
$nines[1] = any(9);
for $i ( 1..8 ){
        $nines[$i+1] = any eigenstates any map{
                $nines[$_]+$nines[$i-$_+1],
                $nines[$_]-$nines[$i-$_+1],
                $nines[$_]*$nines[$i-$_+1],
                $nines[$_]/any grep{$_!=0}eigenstates $nines[$i-$_+1]
        } 1..$i;
        print $nines[$i+1],"\n";
        for( $_=1;;$_++){ last unless $_ eq $nines[$i+1] }
        print "$_\n";
}
[download]