let rec merge_fields sep (fieldlist:int list) (l:string list) = 
 let l'=(List.select l fieldlist) in (big (merge sep) l')