procedure main()
	words := open("/usr/share/dict/words") | stop("Cannot open dictionary")
	hexchars := 'abcdefoi'
	ls := list(30)
	every !ls := set()
	while word := trim(map(read(words))) do
		if *( word -- hexchars ) = 0 then insert( ls[*word], word)
	every wls := sort(!ls) & write(!wls)
end