let fold_righti f a b =
  let len = length a in
  let rec iter acc i =
    if i >= 0 then
      iter (f i (get a i) acc) (i-1)
    else
      acc
  in
  iter b (len - 1)