demark -- insert a string between elements of a list of strings

demark(s,x) -- given a list of strings x and a string s provides the string obtained by concatenating the elements of x with a copy of x inserted between each successive pair.

i1 : demark("+",{"a","b","c"}) o1 = a+b+c