my $x= 1+~0;
$x *= 2 while $x != $x+1;
$x /= 2;
my $y= $x;
for( 1..5 ) {
    $x++;
    print $x-$y, " ", $x%3, " ", $x/3-int($x/3), "; ";
}
print $/
__END__
1 0 0.75; 2 0 0; 3 2 0.25; 4 2 0.75; 5 1 0;