alias aktar {
  if $hget(toplist) { .hfree -sw toplist }
  var %x = 1,%t = $lines(dosya.txt)
  if !$hget(toplist) { hmake toplist }
  while (%x <= %t) {
    if ($read(kisi.txt,w,$+(*,$gettok($read(dosya.txt,%x),1,32),*)) { .hadd toplist $gettok($read(dosya.txt,%x),1,32) $gettok($read(dosya.txt,%x),2,32) }
    inc %x 1
  }
  msg #kanal $toplist
}