let
fold_outputs f acc sgn =
List
.fold_left f acc sgn.outputs