alias pplz {
  var %a = 1, %pplz, %n
  while ($nick($1,%a)) {
    %n = $v1
    %pplz = %pplz $iif(%n != $nick($1,$nick($1,0)),$+(%n,$chr(44)),and $+(%n,.))
    inc %a
  }
  return %pplz
}