## here is a some programs written in perl I  wrote
##Copyright 2008 Mark Raymond Baker

## if you print out a number to the 4,000,000 place
## you can check its pattern

## note this works on perl 5.10
## if your useing perl 5 - 5.8.8.8  go like this
## $_ = fdiv::(1,23**-1.23423,4000000);

require "bigfloat.pl";

$_ = fdiv(1,23**-1.23423,4000000);

print ();

## commandlineC:\perl     from\command\line\use the\ >> to direct the\numbers to\a file\
## perl is free at www.perl.com  download active perl
## and want to see a realitive pattern  use this code
## hope this might save you some hairs!


open INF, ("C:/use/file for pattern research/path/here");
while (<INF>) {

m/(\d)/;
$a = $1;
s/$1/a/ig;

m/(\d)/;
$b = $1;
s/$1/b/ig;

m/(\d)/;
$c = $1;
s/$1/c/ig;

m/(\d)/;
$d = $1;
s/$1/d/ig;

m/(\d)/;
$e = $1;
s/$1/e/ig;

m/(\d)/;
$f = $1;
s/$1/f/ig;

m/(\d)/;
$g = $1;
s/$1/g/ig;

m/(\d)/;
$h = $1;
s/$1/h/ig;

m/(\d)/;
$i = $1;
s/$1/i/ig;

m/(\d)/;
$j = $1;
s/$1/j/ig;



print ($a,$b,$c,$d,$e,$f,$g,$h,$i,$j,'              ',$. );  
print"\n";
print ();
#print "\n";
#print "---------------------------------------------------------",$.;
#print"\n";


}
close INF;

## then print this number to a file
## send this next code to a file and use the above code on it !!! there are 115,975 base patterns in 9,999,999,999


for (0) {
$a = $_;

for (0..1) {
$b = $_;

for (0..2) {
$c = $_;
if (($a | $b == 0) & ($c <= 1) or ($b == 1) & ($c <= 2)){

for (0..3) {
$d = $_;
if (($a | $b | $c == 0) & ($d <= 1) or ($b | $c == 1) & ($d <= 2) or ($c == 2) & ($d <= 3)) {

for(0..4) {
$e = $_;  
if (($a | $b | $c | $d == 0) & ($e <= 1) or ($b | $c | $d == 1) & ($e <= 2) or ($c == 2 & $e <= 3)  or ($d == 2 & $e <= 3) or ($d == 3) & ($e <= 4)) {

for(0..5) {
$f = $_;  
if (($a |$b |$c |$d |$e == 0) & ($f <= 1) or ($b |$c |$d |$e == 1) & ($f <= 2) or ($c == 2 & $f <= 3) or ($d == 2 & $f <= 3) or ($e == 2 & $f <= 3) or ($d == 3 & $f <= 4) or ($e == 3 & $f <= 4) or ($e == 4 & $f <= 5)) {

for(0..6) {
$g = $_;  
if (($a |$b |$c |$d |$e |$f == 0) & ($g <= 1) or ($b |$c |$d |$e |$f == 1) & ($g <= 2) or ($c == 2 & $g <= 3) or ($d == 2 & $g <= 3) or ($e == 2 & $g <= 3) or ($f == 2 & $g <= 3) or ($d == 3 & $g <= 4) or ($e == 3 & $g <= 4) or ($f == 3 & $g <= 4) or ($e == 4 & $g <= 5) or ($f == 4 & $g <= 5) or ($f == 5 & $g <= 6)) {

for(0..7) {
$h = $_;  
if (($a |$b |$c |$d |$e |$f |$g == 0) & ($h <= 1) or ($b |$c |$d |$e |$f |$g == 1) & ($h <= 2) or ($c == 2 & $h <= 3) or ($d == 2 & $h <= 3) or ($e == 2 & $h <= 3) or ($f == 2 & $h <= 3) or ($g == 2 & $h <= 3)or ($d == 3 & $h <= 4) or ($e == 3 & $h <= 4) or ($f == 3 & $h <= 4) or ($g == 3 & $h <= 4) or ($e == 4 & $h <= 5) or ($f == 4 & $h <= 5) or ($g == 4 & $h <= 5) or ($f == 5 & $h <= 6) or ($g == 5 & $h <= 6) or ($g == 6 & $h <= 7)) {

for(0..8) {
$i = $_;  
if (($a |$b |$c |$d |$e |$f |$g |$h == 0) & ($i <= 1) or ($b |$c |$d |$e |$f |$g |$h == 1) & ($i <= 2) or ($c == 2 & $i <= 3) or ($d == 2 & $i <= 3) or ($e == 2 & $i <= 3) or ($f == 2 & $i <= 3) or ($g == 2 & $i <= 3) or ($h == 2 & $i <= 3) or ($d == 3 & $i <= 4) or ($e == 3 & $i <= 4) or ($f == 3 & $i <= 4) or ($g == 3 & $i <= 4) or ($h == 3 & $i <= 4) or ($e == 4 & $i <= 5) or ($f == 4 & $i <= 5) or ($g == 4 & $i <= 5) or ($h == 4 & $i <= 5) or ($f == 5 & $i <= 6) or ($g == 5 & $i <= 6) or ($h == 5 & $i <= 6) or ($g == 6 & $i <= 7) or ($h == 6 & $i <= 7) or ($h == 7 & $i <= 8)) {

for (0..9) {
$j = $_;
if (($a == 0 & $j <= 1) or ($b == 0 & $j <= 1) or ($c == 0 & $j <= 1) or ($d == 0 & $j <= 1) or ($e == 0 & $j <= 1)or ($f == 0 & $j <= 1) or ($g == 0 & $j <= 1) or ($h == 0 & $j <= 1) or ($i == 0 & $j <= 1) or ($b == 1 & $j <= 2) or ($c == 1 & $j <= 2) or ($d == 1 & $j <= 2) or ($e == 1 & $j <= 2)or ($f == 1 & $j <= 2) or ($g == 1 & $j <= 2) or ($h == 1 & $j <= 2) or ($i == 1 & $j <= 2)or ($c == 2 & $j <= 3) or ($d == 2 & $j <= 3) or ($e == 2 & $j <= 3)or ($f == 2 & $j <= 3) or ($g == 2 & $j <= 3) or ($h == 2 & $j <= 3) or ($i == 2 & $j <= 3) or ($d == 3 & $j <= 4) or ($e == 3 & $j <= 4) or ($f == 3 & $j <= 4) or ($g == 3 & $j <= 4) or ($h == 3 & $j <= 4) or ($i == 3 & $j <= 4) or ($e == 4 & $j <= 5) or ($f == 4 & $j <= 5) or ($g == 4 & $j <= 5) or ($h == 4 & $j <= 5) or ($i == 4 & $j <= 5) or ($f == 5 & $j <= 6) or ($g == 5 & $j <= 6) or ($h == 5 & $j <= 6) or ($i == 5 & $j <= 6) or ($g == 6 & $j <= 7) or ($h == 6 & $j <= 7) or ($i == 6 & $j <= 7) or ($h == 7 & $j <= 8) or ($i == 7 & $j <= 8)
or ($i == 8 & j <= 9)) {






print ($a, $b, $c, $d, $e, $f, $g, $h, $i, $j,);
print "\n";
}}}}}}}}}}}}}}}}}}

for (0..1) {

$a = $_;

for (0..1) {

$b = $_;

for (0..1) {

$d = $_;

print $a, $b, $c, $d, ( $a & $b *^<`'>^* $c ^= $d) 01? $a;