Sentence Pointer Handling

; initialize for a new sentence
(defn initsent [sent]
  (def atnsent sent)    ; remainder of sentence
  (def atnsavesent '()) ; saved pos for backup
  (setword))

;   set atnword for current position
(defn setword []
  (def atnword (first atnsent))   ; current word
  (def atnnext (rest atnsent))  )

;   move to next word
(defn nextword []
  (def atnsent atnnext) (setword) true)