let
split_at t ~index =
let
l,r = unrevSplit t index
in
List
.rev l, r