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
)