alias temp {
  var %file = C:\Temp\file.txt,%cnt = 1,%word
  while $read(%file,%cnt) {
    %word = $gettok($v1,2,32)
    if (!$read(C:\Temp\newfile.txt,s,%word)) write C:\Temp\newfile.txt %word
    inc %cnt
  }
}