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