alias degis {
  var %% = 1,%& = $lines(dosyadı.txt) 
  while %% <= %& { 
    write yenilenen.txt $addtok($gettok($read(dosyadı.txt,%%),2,42),$gettok($read(dosyadı.txt,%%),1,42),42) 
    inc %% 
  } 
}