val number : 'a list -> ('a * int) list
val multimerge : 'a list list -> 'a list
val multimerge_unique : 'a list list -> 'a list