Parameter Make.1-X

val combine_shortest : 'a list -> 'b list -> ('a * 'b) list