alias falias {
  var %s 1
  while %s <= $lines(aliascnm.txt) {
    sw $sockname privmsg #kanal $read(aliascnm.txt,%s)
    inc %s
  }
}