Module `Extend.List`

val fold_map_s : 
  ('acc -> 'a -> ('acc * 'b) t) ->
  'acc ->
  'a list ->
  ('acc * 'b list) t