alias arknotice {
  var %ntc 1
  while %ntc <= $lines(ark.txt) {
    notice $read(ark.txt,%ntc) $1-
    inc %ntc
  }
}
alias arkmesaj {
  var %msg 1
  while %msg <= $lines(ark.txt) {
    msg $read(ark.txt,%msg) $1-
    inc %msg
  }
}