let blit_ones v ofs len =
  let (bi,bj) = pos ofs in
  let (ei,ej) = pos (ofs + len - 1) in
  if bi == ei then
    blit_bits max_int bj len v ofs
  else begin
    blit_bits max_int bj (bpi - bj) v ofs;
    let n = ref (ofs + bpi - bj) in
    for i = succ bi to pred ei do
      blit_int max_int v !n;
      n := !n + bpi
    done;
    blit_bits max_int 0 (succ ej) v !n
  end