print "@$_[3]\n";
	$buff = unpack('L',@$_[3]);
	print $buff;