sirala {
  var %d $iif($len($1) = 1,$+($1,:\),$1), %e echo 14 -a ***, %a $2, %y $shortfn($3-) | hadd -mu10 kla sör $3-
  if !$exists(%d) { %e 4Belirlediginiz klasör bulunmuyor. | return }  
  if !$exists(%y) { mkdir $3-  }
  noop $findfile(%d,$+(*.,%a),0,klasor.ayarla $1-)
}
klasor.ayarla { 
  var %d $left($nopath($1-),1), %q $+($hget(kla,sör),\,[  %d ]), %i $nopath($1-) | inc -u5 %w
  if !$exists(%q) { .mkdir %q }  
  $+(.timer,$replace($+(%q,\,%i),$chr(32),%x)) 1 1 .copy -o $shortfn($1-) $replace($+(%q,\,%i),$chr(32),$chr(160))
  .timerbilgi 1 5 echo -at 4Toplam %w dosyasi belirlediginiz klasöre tasindi.
}