# was hier noch passiert, kann ich dir leider auch nicht sagen:
	while ( $w-- + 1 ) {
		( $r, $t ) = $r->bdiv(256);
		$u = pack( 'C', $t->bstr ) . $u;
	} # while