ON *:nick: {
  var %iter = 1
  while ($comchan($newnick, %iter)) {
    write tel.ini $v1 nick $calc(1+$readini(tel.ini, $v1, nick))
    if ($readini(tel.ini, $chan, datum) == $null) {
      writeini tel.ini $chan datum $fulldate
    }
    inc %iter
  }
}