#!perl
sub f{my($n,$s)=@_;++$n+@t>30?print"@t $n\n":$s{$n}?'':do{$s{$t[@t]=$n}=1;for(1..2){f(vec('1516*92846,248.578/2-6+901/534',$n*2-$_,8)-42,$s)}$s{pop@t}=0}};f