#!/usr/local/bin/perl -w

use strict;
use lib "/home/martink/export/extern/perl/lib/site_perl/5.005";
use Math::BaseCalc;

$\="\n";
$,=" ";
my @bases = (2);
my $N     = 10000;

my $bobj;
for my $b (@bases) {
    $bobj->{$b} = Math::BaseCalc->new(digits=>[0..$b-1]);
}
for my $i (0..$N) {
    my $halton;
    for my $b (@bases) {
	my $n = $bobj->{$b}->to_base($i);
	my $nr = join("", reverse split("",$n));
	my $nrr = "0.$nr";
	my $f = $bobj->{$b}->from_base($nrr);
	$halton->{$b} = $f;
	#print "halton",$i,"base",$b,$n,$nr,$nrr,$f;
    }
    print ((map {$halton->{$_}} @bases),1,int($i / 200),rand(),rand());
}