alias sils {
  var %txt 1
  while %txt <= $findfile(C:\deneme,*.txt,0) {
    if $left($nopath($findfile(C:\deneme,*.txt,%txt)),1) isnum {
      .remove $findfile(C:\deneme,*.txt,%txt)
    }
    inc %txt 1
  }
}