Fin counterpart of Nat.foldM

Stream: Is there code for X?

[Jun Yoshida]

Is there a Fin-counterpart of Nat.foldM?

universe u v
variable {α : Type u} {m : Type u → Type v} [Monad m]

example (n : Nat) (f : Fin n → α → m α) (init : α) : m α :=
  sorry