# Roboticus' second attempt

my $robo_2 = sub {
	my @orig = unpack "S*", shift;
	my $bits=0;
	my $buf=0;
	my @bytes;
	while (@orig) {
		$buf |= (shift @orig)<<$bits;
		$bits += 16;
		while ($bits>6) {
			push @bytes, $buf & 0x3f;
			$buf>>=6;
			$bits-=6;
		}
	}
	push @bytes, $buf if $bits;
	return (@bytes);
};