alias degis {
  var %s 1,%> = 1
  var %r $findfile($mircdirremotelerim\,*.mrc,0)
  while (%s <= %r) {
    var %i $findfile($mircdirremotelerim,*.mrc,%s) $nopath($1-)
    var %ii $gettok($puttok(%i, $+ %s $+ .mrc,-1,92),-1,92)
    var %iii $gettok($gettok(%i,-1,92),-1,92)
    .timer 1 %> /rename "D:\mırc\remotelerim\ $+ %iii $+ " "D:\mırc\remotelerim\ $+ %ii $+ "
    inc %s | inc %> 3
  }
}