let list2string (sep : string) (l : string list) : string = 
         if(l=[]) then""
        else(
                 let res = List.fold_left (fun a b -> a^sep^b) "" l in
                let length = String.length sep in
                if (length>0)
                then String.sub res length ((String.length res)-length)
                else res
        )