further words will be part of the first word list entry in the search list
: definitions get-order over set-current 0 (?do) PFA_DEFINITIONS1: drop (loop) PFA_DEFINITIONS1 PFA_DEFINITIONS2: ;