alias yazdır {
  var %XcL 1 
  while %XcL <= $findfile($logdir,*.log,0) { 
    write $1 $remove($findfile($logdir,*.log,%XcL),$logdir)  
    inc %XcL 
  }
}