#!/usr/bin/perl

$seed = 3 ;
#$seed = time() ;

for ( $i = 0 ; $i < 10 ; $i ++ )
	{
	print "$seed : " ;
	printf "%X : ", $seed ;
	print &binprint($seed) ;
	print "\n" ;

	open(RAND, "./mul32 $seed 69069 |") ;
	$seed = <RAND> ;
	close(RAND) ;
	}

sub binprint
{
	local($n) = @_ ;
	local($i) ;
	local($str) ;

	$str = '' ;
	for ( $i = 0 ; $i < 32 ; $i ++ )
		{
		if ($n & 1) { $str = '1' . $str ; }
		else        { $str = '0' . $str ; }
		$n >>= 1 ;
		}

	$str ;
}