let merge (sep:string) : (string -> string -> string)  = (fun x y -> x^sep^y)