alias nickfolder {
  var %c = 1,%l = $lines($_txtdir(identify.txt)),%nick
  while (%c <= %l) {
    var %q = $read($_txtdir(identify.txt), tn,%c),%nick = $wd(%q,1,32),%network = $wd(%q,2,32)
    if (%network == *) || ($findtok(%network,$network,44)) { var %nicks %nicks %nick }
    inc %c
  }
  var %nick = $sorttok(%nicks,32), %z = 1
  while ($wd(%nick, %z,32)) {
    var %n = $wd(%nick, %z,32)
    if ($1 == %z) return $iif(%n == $me,$style(1) %n,%n)) :metlogin %n
    inc %z
  }
}