alias list {
  var %x 1
  tokenize 32 $1
  while ($0 >= %x) {
    var %t %t $iif(%x = $calc($0 -1),$(,$ $+ %x) and,$(,$ $+ %x) $+ $chr(44))
    inc %x
  }
  return $left(%t,-1)
}