link strings           # for compress,deletec,pretrim

procedure sflatten(s)  # uninteresting string solution
return pretrim(trim(compress(deletec(s,'[ ]'),',') ,','),',')
end