let
fold xs ~init ~f = foldi xs ~init ~f:(const f)