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