#!/usr/bin/newlisp

;; spellcheck.newlisp - benchmark - newLISP 8.3.0 or later

(context 'MAIN)

(define (main)
	(set 'infile (open "Usr.Dict.Words" "read"))
	(while (set 'word (read-line infile))
		(sym word 'Dictionary))
	(close infile)

	(while (set 'word (read-line))
		(if (not (sym word 'Dictionary nil))
			(println word))))

(main)

;; eof