scope byteArrayFromBase128Utf8

static int #byteFromArray(byte[] data, int i) {
  ret i >= data.length ? 0 : ubyteToInt(data[i]);
}

static byte[] byteArrayFromBase128Utf8(byte[] data) {
  int n = l(data);
  bool anomaly = (n & 7) == 1 && (data[n-1] & 1) != 0;
  int n2 = anomaly ? n-1 : n;
  int nOut = toInt(n2*7L/8);
  byte[] out = new byte[nOut];
  int iIn = 0, iOut = 0;
  while (iIn < n2) {
    // take all 7 bits of byte 0 + top bit of byte 1
    out[iOut++] = (byte) (data[iIn] << (8-1) | ubyteToInt(data[iIn+1]) >> (8-1);
    if (++iIn >= n2) break;
    // take bottom bit of byte 0 + top 6 bits of byte 1
    out[iOut] = (byte) (0x7F & (byteFromArray(data, iIn) << (7-1) | byteFromArray(data, iIn+1) >> (8-6));
    if (++iOut >= nOut) break;
    // take bottom 2 bits of byte 1 + top 5 bits of byte 2
    out[iOut] = (byte) (0x7F & (byteFromArray(data, iIn+1) << (7-2) | byteFromArray(data, iIn+2) >> (8-5));
    if (++iOut >= nOut) break;
    // take bottom 3 bits of byte 2 + top 4 bits of byte 3
    out[iOut] = (byte) (0x7F & (byteFromArray(data, iIn+2) << (7-3) | byteFromArray(data, iIn+3) >> (8-4));
    if (++iOut >= nOut) break;
    // take bottom 4 bits of byte 3 + top 3 bits of byte 4
    out[iOut] = (byte) (0x7F & (byteFromArray(data, iIn+3) << (7-4) | byteFromArray(data, iIn+4) >> (8-3));
    if (++iOut >= nOut) break;
    // take bottom 5 bits of byte 4 + top 2 bits of byte 5
    out[iOut] = (byte) (0x7F & (byteFromArray(data, iIn+4) << (7-5) | byteFromArray(data, iIn+5) >> (8-2));
    if (++iOut >= nOut) break;
    // take bottom 6 bits of byte 5 + top bit of byte 6
    out[iOut] = (byte) (0x7F & (byteFromArray(data, iIn+5) << (7-6) | byteFromArray(data, iIn+6) >> (8-1));
    if (++iOut >= nOut) break;
    // take bottom 7 bits of byte 6
    out[iOut] = (byte) (0x7F & byteFromArray(data, iIn+6));
    if (++iOut >= nOut) break;
    iIn += 7;
  }
  ret out;
}