Mine

menu @friends {
  lbclick:{ echo -s :: $1 :: $active }
}
alias friends {
  /window -lsek0 @Friends -1 -1 350 450 pop.txt
  var %i = 0
  while (%i < $lines(friends.txt)) {
    inc %i 1
    /aline 1 @friends $remove($mask($read(friends.txt,%i),9),$chr(33) $+ $gettok($mask($address($me,9),9),2,33))
  }
}