alias userchans {
  var %i = $findfile($scripdirchans,*.ini,0), %x, %o
  while (%i) {
    var %x = $findfile($scriptdirchans,*.ini,%i)
    if ($ini(%x,users,$$1)) {
      var %o = $addtok(%o,$chr(35) $+ $left($nopath(%x),-4),32)
    }
    dec %i
  }
  return %o
}