sub byte_align_encode {
  my $bytes = pack("w*", @_);
  $bytes ^= "\x80" x length($bytes);
}