bbuf_peeki = class implements bbuf_peek extends bbuf_basei
peek = method({full,mid}b:self{-}) replies(int)
reply(b.arr[b.opt])
end peek
end bbuf_basei
bbuf_hl = interface { empty, low, high, full }
extends bbuf { mid } becomes { low, high }
putlow = method({empty,low}b:self{empty,low,high})
end bbuf_hl
bbuf_u = interface { empty, mid }
extends bbuf { full } removed
end bbuf_u