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