$commasep() for Synide v1.0

alias commasep {
  ; $commasep(one two three)
  if ($1 == $null) { return }

  var %t = $numtok($1,32)

  var %i = 1
  while (%i <= %t) {
    var %w = $gettok($1,%i,32)

    if (%i == %t) { var %tot = %tot $+(%w,$chr(46)) }
    else { var %tot = %tot $+(%w,$chr(44)) }

    inc %i
  }

  return %tot
}