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