;;;-*- Mode: Lisp; Package: CONSTRAINT-GRAMMAR-PARSER -*-

;; Copyright (C) Paul Meurer 2002. All rights reserved.
;; paul.meurer@hit.uib.no
;; HIT-centre, University of Bergen
;;
;; Version 0.1

(in-package :cgp)

;;(use-package :skip-list)

(defmethod all-feature-values ((cg constraint-grammar))
  (with-slots (set-declarations) cg
    (let ((values ()))
      (maphash (lambda (key value)
                 (declare (ignore key))
                 (dolist (ff value)
                   (if (consp ff)
                     (dolist (f ff)
                       (pushnew f values :test #'equal))
                     (pushnew ff values :test #'equal))))
               set-declarations)
      values)))

#+test
(sort-fc (all-feature-values *nbo-cg*)) ;; 1070 values

(defmacro ensure-list (list-or-atom)
  `(progn
     (when (atom ,list-or-atom)
       (setf ,list-or-atom (list ,list-or-atom)))
     ,list-or-atom))

;; fc = feature condition afc = atomic feature condition
(defun fc-intersection (fc1 fc2)
  (fc-remove-redundants
   (sort-fc
    (collecting
      (dolist (afc1 fc1)
        (ensure-list afc1)
        (dolist (afc2 fc2)
          (ensure-list afc2)
          (collect (sort-afc (copy-seq (union afc1 afc2 :test #'equal))))))))))

(defun fc-remove-redundants (fc)
  (let ((prev-afc nil))
    (collecting
      (dolist (afc fc)
        (ensure-list afc)
        (unless (and prev-afc (subsetp prev-afc afc :test #'equal))
          (setf prev-afc afc)
          (collect afc))))))

(defun feature-value< (f1 f2)
  (cond ((and (numberp f1) (numberp f2))
         (< f1 f2))
        ((and (not (numberp f1)) (numberp f2))
         t)
        ((and (numberp f1) (not (numberp f2)))
         nil)
        ((and (stringp f1) (not (stringp f2)))
         t)
        ((and (not (stringp f1)) (stringp f2))
         nil)
        (t
         (string< f1 f2))))

(defun sort-afc (afc)
  (if (atom afc) afc (sort afc #'feature-value<)))

(defun afc< (afc1 afc2)
  (ensure-list afc1)
  (ensure-list afc2)
  (loop for (f1 . rest1) on afc1 
        and (f2 . rest2) on afc2
        do (cond ((feature-value< f1 f2)
                  (return-from afc< t))
                 ((feature-value< f2 f1)
                  (return-from afc< nil))
                 ((null rest2)
                  (return-from afc< nil))
                 ((null rest1)
                  (return-from afc< t)))))

(defun sort-fc (fc)
  (sort (mapcar #'sort-afc fc) #'afc<))

#+test
(sort-fc '(mest-sanns-subst-istf-adj "året" "skyld" "lo" "hull" "faren" ("skygg" be)
           ("folke" <perf-part>) ("live" <perf-part>) ("kute" adj <perf-part>)))


;; FC is in normal form (= sorted and non-redundant)
(defun make-fc-state (fc &optional (to-state 1))
  (let ((path ())
        (first-p t)
        (stack (list (list nil))))
    (declare (ignore first-p))
    (dolist (afc fc)
      (ensure-list afc)
      (let ((afc-path (reverse path))
            (afc-tail afc))
        (loop while (equal (car afc-tail) (car afc-path))
              do (pop afc-tail) (pop afc-path))
        (dolist (rest-f afc-path)
          (declare (ignorable rest-f))
          (pop path)
          (pop stack))
        (dolist (f afc-tail)
          (let ((step (list f)))
            (push f path)
            (if (cdar stack)
              (setf (cadar stack) (append (cadar stack) (list step)))
              (setf (cdar stack)
                    (list (list (list (- to-state)) step))))
            (push step stack)))
        (push (list (list to-state)) (cdar stack))))
    (cadar (last stack))))

;; TO DO: use everywhere!
(defun feature-equal (f1 f2)
  (equal f1 f2))

#+old
(defun complete-fc-state (fc-state &key (only-one-string-p t))
  (labels ((merge-branches (branches &optional default-pair) ;; branches are sorted
              ;;(print (list :merge branches :pair default-pair))
              (let ((prev-branch nil))
               (collecting
                 (dolist (branch branches)
                   (when default-pair
                     (setf branch (propagate-defaults branch default-pair)))
                   (cond ((null prev-branch)
                          (setf prev-branch branch))
                         ((feature-equal (car prev-branch) (car branch))
                          ;; merge branches with equal features
                          (destructuring-bind (f1 (stop1 . branches1)) prev-branch
                            (destructuring-bind (stop2 . branches2) (cadr branch)
                              (setf prev-branch
                                    (list f1
                                      (cond ((and (numberp stop1)
                                                  (equal stop1 stop2))
                                             (cons stop1
                                                   (merge-branches
                                                    (sort (append branches1
                                                                  (copy-seq branches2))
                                                          #'feature-value<
                                                          :key #'car))))
                                            ((numberp stop1)
                                             ;; preliminary!
                                             (list (max stop1 stop2)))
                                            ;; stop1, stop2 are cons pairs
                                            ;; positive overrides negative
                                            (t
                                             (let ((pair
                                                    (if default-pair
                                                      (cons (max (car stop1) (car stop2)
                                                                 (car default-pair))
                                                            (max (cdr stop1) (cdr stop2)
                                                                 (cdr default-pair)))
                                                      (cons (max (car stop1) (car stop2))
                                                         (max (cdr stop1) (cdr stop2))))))
                                               (cons pair
                                                     (merge-branches
                                                      (sort (append branches1
                                                                    (copy-seq branches2))
                                                            #'feature-value<
                                                            :key #'car)
                                                      pair))))))))))
                         (t
                          (collect prev-branch)
                          (setf prev-branch branch))))
                 (when prev-branch (collect prev-branch)))))
           (walk (feature branch path)
              (let ((next (car branch)))
                (when (and path
                           ;; does not work if there is more than one possible next state
                           (or (and (numberp next) (< next 0))
                               (and (consp next)
                                    (or (< (car next) 0)
                                        (< (cdr next) 0)))))
                  ;;(print (list :feature feature :branch branch :path path))
                  (let ((completed-branch
                         (merge-branches
                          (sort
                           (append (cdr branch)
                                   (collecting
                                     (dolist (branch-tail path)
                                       (dolist (sub-branch branch-tail)
                                         (when (or (not feature)
						   (and (or (not only-one-string-p)
							    (not (and (stringp feature)
								      (stringp (car sub-branch)))))
							(feature-value< feature (car sub-branch))))
                                           (collect 
                                             (if (consp (car branch))
                                               (propagate-defaults sub-branch (car branch))
                                               sub-branch)))))))
                           #'feature-value<
                           :key #'car)
                          (car branch))))
                    ;;(print (list :completed completed-branch))
                    (setf (cdr branch) completed-branch)))
             (loop for (sub-branch . rest) on (cdr branch)
                   do (walk (car sub-branch)
                             (cadr sub-branch)
                             (if rest (cons rest path) path))))))
    (walk nil fc-state ())
    fc-state))

#+test
(defparameter *test*
  (complete-fc-state
   (fc-state-union
    (fc-state-union (make-fc-state '(a (b c)))
                    (make-fc-state '((a e) f)))
    (fc-state-union (make-fc-state '(b (c d)))
                    (make-fc-state '((a b) d))))))

#+test
((-1 -1 -1 -1)
 (a ((1 -1 -1 -1)
     (b ((1 -1 -1 1)))
     (e ((1 1 -1 -1)))))
 (b ((-1 -1 1 -1)
     (c ((1 -1 1 -1)))))
 (c ((-1 -1 -1 -1)
     (d ((-1 -1 1 -1)))))
 (d ((-1 -1 -1 1)))
 (f ((-1 1 -1 -1))))

;; =>

#+test
((-1)
 (a ((-1)
     (b ((-1)
         (e ((1)))
         (f ((1)))))
     (c ((-1)
         (d ((-1)
             (e ((1)))
             (f ((1)))))))))
 (b ((-1)
     (c ((-1)
         (d ((-1)
             (f ((1))))))))))

#|


((a (b (c (d))
       (d))
    (c (d))
    (d))
 (b (c (d))
    (d))
 (c (d))
 (d))

(next-fc-state-b *test* '(a b d))

(defun in-union-p (fc-state set)
  (not (find-if #'minusp (next-fc-state-b fc-state set))))

(defun build-complete-tree (elements)
  (labels ((build (elts)
              (when elts
                (cons (car elts)
                      (maplist #'build (cdr elts))))))
    (maplist #'build elements)))

(defun build-complete-tree (elements)
  (labels ((build (elts)
              (nreverse
               (collecting
                 (labels ((walk (elts)
                            (when elts
                              (walk (cdr elts))
                              (collect (cons (car elts)
                                             (build (cdr elts)))))))
                   (walk elts))))))
    (build elements)))

(build-complete-tree '(a b c d))

(build-tree-backwards *test* '(a b c d f))

(in-union-p *test* '(a b c f))


#+test
((-1 -1 -1 -1)
 (a ((1 -1 -1 -1)
     (b ((1 -1 -1 1)))
     (e ((1 1 -1 -1)))))
 (b ((-1 -1 1 -1)
     (c ((1 -1 1 -1)))))
 (c ((-1 -1 -1 -1)
     (d ((-1 -1 1 -1)))))
 (d ((-1 -1 -1 1)))
 (f ((-1 1 -1 -1))))

#+test
((-1)
 (a ((-1)
     (b ((-1)
         (e ((1)))
         (f ((1)))))
     (c ((-1)
         (d ((-1)
             (e ((1)))
             (f ((1)))))))))
 (b ((-1)
     (c ((-1)
         (d ((-1)
             (f ((1))))))))))

((a (b (c (d (e (f))
             (f))
          (e (f))
          (f))
       (d (e (f))
          (f))
       (e (f))
       (f))
    (c (d (e (f))
          (f))
       (e (f))
       (f))
    (d (e (f))
       (f))
    (e (f))
    (f))
 (b (c (d (e (f)) (f)) (e (f)) (f))
    (d (e (f)) (f))
    (e (f))
    (f))
 (c (d (e (f)) (f))
    (e (f))
    (f))
 (d (e (f))
    (f))
 (e (f))
 (f))

((a (b (c (d (e)
             (f))
          (e)
          (f))
       (d (e)
          (f))
       (e)
       (f))
    (c (d (e)
          (f))
       (e (f))
       (f))
    (d (e (f))
       (f))
    (e (f))
    (f))
 (b (c (d (e (f)) (f)) (e (f)) (f)) (d (e (f)) (f)) (e (f)) (f))
 (c (d (e (f)) (f)) (e (f)) (f))
 (d (e (f)) (f))
 (e (f))
 (f))

(build-tree-backwards *test* '(a b c d e f))
(in-union-p *test* '(a b e))

(defun build-tree-backwards (fc-state elements)
  (labels ((build (elts path)
              (nreverse
               (collecting
                 (labels ((walk (elts)
                            (when elts
                              (unless (in-union-p fc-state (reverse path))
                                (walk (cdr elts))
                                (when (in-union-p fc-state (reverse path))
                                  (print path))
                                (collect (cons (car elts)
                                               (unless (in-union-p fc-state (reverse path))
                                                 (build (cdr elts) 
                                                        (cons (car elts) path)))))))))
                   (walk elts))))))
    (build elements ())))

(defun build-tree-backwards (state-union elements)
  (let ((tree (list (list -1)))
        (inv-elts (reverse elements)))
    (labels ((build (union-tree elts states)
                (unless (tree-lookup elts)
                  (cond ((null elts)
                         nil)
                        ((

|#

#+test
((-1 -1 -1 -1)
 (a ((1 -1 -1 -1)
     (b ((1 -1 1 1)
         (c ((1 -1 1 1)
             (d ((1 -1 1 1)
                 (e ((1 1 1 1)))
                 (f ((1 1 1 1)))))
             (e ((1 1 1 1)))
             (f ((1 1 1 1)))))
         (d ((1 -1 1 1)
             (e ((1 1 1 1)))
             (f ((1 1 1 1)))))
         (e ((1 1 1 1)))
         (f ((1 1 1 1)))))
     (c ((1 -1 -1 -1)
         (d ((1 -1 1 1)
             (e ((1 1 1 1)))
             (f ((1 1 1 1)))))))))
 (b ((-1 -1 1 -1)
     (c ((1 -1 1 -1)
         (d ((1 -1 1 1)
             (f ((1 1 1 1))))))))))

#+test
((-1 -1 -1 -1)
 (a ((1 -1 -1 -1)
     (b ((1 -1 1 1)
         (c ((1 -1 1 1)
             (d ((1 -1 1 1)
                 (e ((1 1 1 1)))
                 (f ((1 1 1 1)))))
             (e ((1 1 1 1)))
             (f ((1 1 1 1)))))
         (d ((1 -1 1 1)
             (e ((1 1 1 1)))
             (f ((1 1 1 1)))))
         (e ((1 1 1 1)))
         (f ((1 1 1 1)))))
     (c ((1 -1 -1 -1)
         (d ((1 -1 1 1)
             (e ((1 1 1 1)))
             (f ((1 1 1 1)))))
         (e ((1 1 -1 -1)
             (f ((1 1 -1 -1)))))
         (f ((1 1 -1 -1)))))
     (d ((1 -1 -1 1)
         (e ((1 1 -1 1)
             (f ((1 1 -1 1)))))
         (f ((1 1 -1 1)))))
     (e ((1 1 -1 -1)
         (f ((1 1 -1 -1)))))
     (f ((1 1 -1 -1)))))
 (b ((-1 -1 1 -1)
     (c ((1 -1 1 -1)
         (d ((1 -1 1 1)
             (f ((1 1 1 1)))))
         (f ((1 1 1 -1)))))
     (d ((-1 -1 1 1)
         (f ((-1 1 1 1)))))
     (f ((-1 1 1 -1)))))
 (c ((-1 -1 -1 -1)
     (d ((-1 -1 1 1)
         (f ((-1 1 1 1)))))
     (f ((-1 1 -1 -1)))))
 (d ((-1 -1 -1 1)
     (f ((-1 1 -1 1)))))
 (f ((-1 1 -1 -1))))

(defun complete-fc-state (fc-state &key (only-one-string-p t))
  (labels ((merge-branches (branches default) ;; branches are sorted
              ;;(print (list :merge branches :pair default-pair))
              (let ((prev-branch nil))
               (collecting
                 (dolist (branch branches)
                   (when default
                     (setf branch (propagate-defaults branch default)))
                   (cond ((null prev-branch)
                          (setf prev-branch branch))
                         ((feature-equal (car prev-branch) (car branch))
                          ;; merge branches with equal features
                          (destructuring-bind (f1 (stop1 . branches1)) prev-branch
                            (destructuring-bind (stop2 . branches2) (cadr branch)
                              (setf prev-branch
                                    (list f1 (let ((merged-default
                                                    (mapcar (lambda (s1 s2 d)
                                                              (max s1 s2 d))
                                                            stop1 stop2 default)))
                                               (cons merged-default
                                                     (merge-branches
                                                      (sort (append branches1
                                                                    (copy-seq branches2))
                                                            #'feature-value<
                                                            :key #'car)
                                                      merged-default))))))))
                         (t
                          (collect prev-branch)
                          (setf prev-branch branch))))
                 (when prev-branch (collect prev-branch)))))
           (walk (feature branch path)
              (let ((next (car branch)))
                (when (and path (find-if #'minusp next))
                  ;;(print (list :feature feature :branch branch :path path))
                  (let ((completed-branch
                         (merge-branches
                          (sort
                           (append (cdr branch)
                                   (collecting
                                     (dolist (branch-tail path)
                                       (dolist (sub-branch branch-tail)
                                         (when (or (not feature)
						   (and (or (not only-one-string-p)
							    (not (and (stringp feature)
								      (stringp (car sub-branch)))))
							(feature-value< feature (car sub-branch))))
                                           (collect 
                                             (if (consp (car branch))
                                               (propagate-defaults sub-branch (car branch))
                                               sub-branch)))))))
                           #'feature-value<
                           :key #'car)
                          (car branch))))
                    ;;(print (list :completed completed-branch))
                    (setf (cdr branch) completed-branch)))
             (loop for (sub-branch . rest) on (cdr branch)
                   do (walk (car sub-branch)
                             (cadr sub-branch)
                             (if rest (cons rest path) path))))))
    (walk nil fc-state ())
    fc-state))

;; could be done destructively??
(defun propagate-defaults (branch default)
  (labels ((walk (branch)
             (destructuring-bind (f (state . branches)) branch
               (list f (cons (mapcar (lambda (s d)
                                       (if (minusp s) d s))
                                     state default)
                             #+ignore
                             (loop for state-tail on state
                                   for d in default
                                   when (minusp (car state-tail))
                                   do (setf (car state-tail) d))
                             (mapcar #'walk branches))))))
    (walk branch)))

#+old
(defun propagate-defaults (branch default)
  ;;(print (list :br branch :pair default))
  (labels ((walk (branch)
             (destructuring-bind (f (state . branches)) branch
               (list f 
                     (cons (if (consp default)
                             (cons (max (car state) (car default))
                                   (max (cdr state) (cdr default)))
                             (max state default))
                           (mapcar #'walk branches))))))
    (walk branch)))

;; FEATURES is a sorted list of features
(defun next-fc-state (fc-state features)
  (labels ((step (stop-state branches features stack)
             (when (null features)
               (return-from next-fc-state stop-state))
             (destructuring-bind (f . f-tail) features
               (destructuring-bind ((bf b-step) . b-tail) branches
                 (cond ((equal f bf)
                        ;; matching branch found
                        (cond ((null (cdr b-step))
                               (return-from next-fc-state (car b-step)))
                              (f-tail
                               (step (car b-step) (cdr b-step) f-tail (cons b-step stack)))
                              (t
                               (return-from next-fc-state (car b-step)))))
                       ((and f-tail (feature-value< f bf))
                        ;; try next feature
                        (step stop-state branches f-tail stack))
                       (b-tail
                        ;; try next branch
                        (step stop-state b-tail features stack))
                       (t
                        ;; no matching branch exists
                        (return-from next-fc-state stop-state)))))))
    (step (car fc-state) (cdr fc-state) features (list fc-state))))

;; with backtracking
(defun next-fc-state-b (fc-state features)
  (let ((next-state (copy-seq (car fc-state))))
    (labels ((adjust-next-state (end-state)
                (loop for next-tail on next-state
                      for end in end-state
                      when (minusp (car next-tail))
                      do (setf (car next-tail) end)))
             (return-p ()
                (not (find-if #'minusp next-state)))
             (step (stop-state branches features)
                (cond ((and branches features)
                       (destructuring-bind (f . f-tail) features
                         (destructuring-bind ((bf b-step) . b-tail) branches
                           (cond ((feature-equal f bf)
                                  (step (car b-step) (cdr b-step) f-tail)
                                  (step stop-state b-tail f-tail))
                                 ((and f-tail (feature-value< f bf))
                                  (step stop-state branches f-tail))
                                 (b-tail
                                  ;; try next branch
                                  (step stop-state b-tail features))
                                 (t
                                  ;; no matching branch exists
                                  (adjust-next-state stop-state)
                                  (when (return-p) (return-from next-fc-state-b next-state)))))))
                      (t
                       (adjust-next-state stop-state)
                       (when (return-p) (return-from next-fc-state-b next-state))
                       nil))))
      (step (car fc-state) (cdr fc-state) features)
      next-state)))

;; lookup in bitvector
(defun next-fc-state-bb (fc-state features)
  (let ((next-state (copy-seq (car fc-state))))
    (labels ((adjust-next-state (end-state)
                (loop for bit across next-state
                      for end across end-state
                      for i from 0
                      when (zerop bit)
                      do (setf (bit next-state i) end)))
             (return-p ()
                (not (find-if #'zerop next-state)))
             (step (stop-state branches features)
                (cond ((and branches features)
                       (destructuring-bind (f . f-tail) features
                         (destructuring-bind ((bf b-step) . b-tail) branches
                           (cond ((feature-equal f bf)
                                  (step (car b-step) (cdr b-step) f-tail)
                                  (step stop-state b-tail f-tail))
                                 ((and f-tail (feature-value< f bf))
                                  (step stop-state branches f-tail))
                                 (b-tail
                                  ;; try next branch
                                  (step stop-state b-tail features))
                                 (t
                                  ;; no matching branch exists
                                  (adjust-next-state stop-state)
                                  (when (return-p) (return-from next-fc-state-bb next-state)))))))
                      (t
                       (adjust-next-state stop-state)
                       (when (return-p) (return-from next-fc-state-bb next-state))
                       nil))))
      (step (car fc-state) (cdr fc-state) features)
      next-state)))

(defun fc-state-union (fc-state1 fc-state2)
  (labels ((step (branch1 branch2 next)
             (let ((stop1 (or (car branch1) next))
                   (branches1 (cdr branch1))
                   (stop2 (or (car branch2) next))
                   (branches2 (cdr branch2)))
               (cons (append stop1 stop2)
                     (branch-union branches1 branches2 stop1 stop2))))
           (branch-union (branches1 branches2 next1 next2)
             (cond ((not (or branches1 branches2))
                    nil)
                   ((null branches2)
                    (destructuring-bind (branch1 . b-tail1) branches1
                      (cons (list (car branch1)
                                  (step (cadr branch1) nil next2))
                            (branch-union b-tail1 nil next1 next2))))
                   ((null branches1)
                    (destructuring-bind (branch2 . b-tail2) branches2
                      (cons (list (car branch2)
                                  (step nil (cadr branch2) next1))
                            (branch-union nil b-tail2 next1 next2))))
                   (t
                    (destructuring-bind (branch1 . b-tail1) branches1
                      (destructuring-bind (branch2 . b-tail2) branches2
                        (cond ((equal (car branch1) (car branch2))
                               (cons (list (car branch1)
                                           (step (cadr branch1) (cadr branch2) nil))
                                     (branch-union b-tail1 b-tail2 next1 next2)))
                              ((feature-value< (car branch1) (car branch2))
                               (cons (list (car branch1)
                                      (step (cadr branch1) nil next2))
                                     (branch-union b-tail1 branches2 next1 next2)))
                              (t
                               (cons (list (car branch2)
                                           (step nil (cadr branch2) next1))
                                     (branch-union branches1 b-tail2 next1 next2))))))))))
    (step fc-state1 fc-state2 nil)))

;;; Functions for testing

;; maps FN over the power set of SET
(defun map-subsets (fn set)
  (labels ((subsets (set)
             (collecting
               (if set
                 (dolist (s (subsets (cdr set)))
                   (collect s)
                   (collect (cons (car set) s)))
                 (collect ())))))
    (dolist (s (subsets (cdr set)))
      (funcall fn s)
      (when set
        (funcall fn (cons (car set) s))))))

;; simple subset lookup
(defun simple-next-fc-state (feature-condition to-state feature-set)
  (if (find-if (lambda (afc)
                 (ensure-list afc)
                 (subsetp afc feature-set))
               feature-condition)
    to-state
    (- to-state)))

;; Tests if tree lookup is equal to subset lookup 
;; and if union tree lookup is equal to two separate lookups
(defun test-union (fc1 fc2 feature-set &key verbose-p)
  (let* ((tree1 (make-fc-state fc1 1))
         (complete-tree1 (complete-fc-state tree1))
         (tree2 (make-fc-state fc2 2))
         (complete-tree2 (complete-fc-state tree2))
         (tree-union-b (fc-state-union tree1 tree2))
         (tree-union (complete-fc-state tree-union-b)))
    (map-subsets
     (lambda (f-set)
       (let* ((next1 (next-fc-state complete-tree1 f-set))
              (simple-next1 (simple-next-fc-state fc1 1 f-set))
              (next2 (next-fc-state complete-tree2 f-set))
              (simple-next2 (simple-next-fc-state fc2 2 f-set))
              (next-union (next-fc-state tree-union f-set)))
         (cond ((not (and (= next1 simple-next1)
                          (= next2 simple-next2)))
                (format t "~&wrong: features: ~s, next: ~d/~d, simple: ~d/~d, union: ~s~%"
                        f-set next1 next2 simple-next1 simple-next2 next-union))
               ((not (and (= (car next-union) next1)
                          (= (cdr next-union) next2)))
                (format t "~&wrong: features: ~s, next: ~d/~d, union: ~s~%"
                        f-set next1 next2 next-union))
               (verbose-p
                (format t "~&features: ~s -> ~s~%" f-set next-union))
               (t
                nil))))
     feature-set)))

(defun test-union-b (fc1 fc2 feature-set &key verbose-p)
  (let* ((tree1 (make-fc-state fc1 1))
         (tree2 (make-fc-state fc2 2))
         (tree-union-b (fc-state-union tree1 tree2)))
    (print (list tree1 tree2 tree-union-b))
    (map-subsets
     (lambda (f-set)
       (print (list :f-set f-set))
       (let* ((next1 (next-fc-state-b tree1 f-set))
              (simple-next1 (simple-next-fc-state fc1 1 f-set))
              (next2 (next-fc-state-b tree2 f-set))
              (simple-next2 (simple-next-fc-state fc2 2 f-set))
              (next-union (next-fc-state-b tree-union-b f-set)))
         (cond ((not (and (= next1 simple-next1)
                          (= next2 simple-next2)))
                (format t "~&wrong: features: ~s, next: ~d/~d, simple: ~d/~d, union: ~s~%"
                        f-set next1 next2 simple-next1 simple-next2 next-union))
               ((not (and (= (car next-union) next1)
                          (= (cdr next-union) next2)))
                (format t "~&wrong: features: ~s, next: ~d/~d, union: ~s~%"
                        f-set next1 next2 next-union))
               (verbose-p
                (format t "~&features: ~s -> ~s~%" f-set next-union))
               (t
                nil))))
     feature-set)))

(defun state-list-to-bitvector (list)
  (let ((bv (make-array (length list) :element-type 'bit :initial-element 0))
        (pos 0))
    (dolist (i list)
      (when (plusp i)
        (setf (bit bv pos) 1))
      (incf pos))
    bv))

(defun make-bitvector-state (fc-state)
  (labels ((walk (tree)
             (setf (car tree) (state-list-to-bitvector (car tree)))
             (mapc (lambda (branch) (walk (cadr branch))) (cdr tree))))
    (walk fc-state)
    fc-state))



#||

((-1 . -2)
 (a ((1 . -2)
     (b ((1 . 2)))))
 (b ((-1 . -2)
     (c ((1 . -2)))))
 (d ((-1 . 2))))

((-1 -1)
 (a ((1 -1)
     (b ((1 1)))))
 (b ((-1 -1)
     (c ((1 -1)))))
 (d ((-1 1))))

(complete-fc-state 
 (fc-state-union
  (fc-state-union (make-fc-state '(a (b c)))
                  (make-fc-state '((a e) f)))
  (fc-state-union (make-fc-state '(b (c d)))
                  (make-fc-state '((a b) d)))))

(next-fc-state-b 
 (fc-state-union
  (fc-state-union (make-fc-state '(a (b c)))
                  (make-fc-state '((a e) f)))
  (fc-state-union (make-fc-state '(b (c d)))
                  (make-fc-state '((a b) d))))
 '(a b c d))

((-1 -1 -1 -1)
 (a ((1 -1 -1 -1)
     (b ((1 -1 -1 1)))
     (e ((1 1 -1 -1)))))
 (b ((-1 -1 1 -1)
     (c ((1 -1 1 -1)))))
 (c ((-1 -1 -1 -1)
     (d ((-1 -1 1 -1)))))
 (d ((-1 -1 -1 1)))
 (f ((-1 1 -1 -1))))

  

(let ((fc-state nil))
  (dolist (set '((setn-gr-u-strek "hvorledes" "hvorfor" "hvordan" "hvor" "hva" sbu @sbu >>> <<< ("$:" clb)
                                ("$;" clb) (clb konj) (clb <komma>))
               (setn-gr/infmerke "hvorledes" "hvorfor" "hvordan" "hvor" "hva" "$--" "$-" inf-merke sbu @sbu
                                 >>> <<< ("$:" clb) ("$;" clb) (clb konj) (clb <komma>))
               (setn-gr/konj "hvorfor" "hvordan" "hvor" "hva" sbu >>> <<< clb konj)
               (setn-gr/parentes-beg "hvorledes" "hvorfor" "hvordan" "hvor" "hva" "$--" "$-" <parentes-beg>
                                     sbu @sbu >>> <<< ("$:" clb) ("$;" clb) (clb konj) (clb <komma>))
               (setn-gr/prep "hvorledes" "hvorfor" "hvordan" "hvor" "hva" "$--" "$-" prep sbu @sbu >>> <<<
                             ("$:" clb) ("$;" clb) (clb konj) (clb <komma>))
               (setn-gr/verb "hvorledes" "hvorfor" "hvordan" "hvor" "hva" "$--" "$-" verb sbu @sbu >>> <<<
                             ("$:" clb) ("$;" clb) (clb konj) (clb <komma>))
               (setn-slutt/fin-verb <<< clb (verb pres) (verb pret))
               (setn/infkonstr-gr "hvorfor" "hvordan" "hvor" "hva" inf-merke sbu >>> <<< ("$-" clb)
                                  ("$;" clb) (clb konj) (clb <komma>))
               (setn/infkonstr-gr/verb "hvorfor" "hvordan" "hvor" "hva" inf-merke sbu >>> <<< clb verb)
               (setningsadv "øyensynlig" "òg" "visstnok" "visselig" "ventelig" "vanligvis" "unektelig"
                            "uheldigvis" "tydeligvis" "trolig" "tilfeldigvis" "sogar" "sluttelig" "simpelthen"
                            "sannsynligvis" "sannelig" "saktens" "rimeligvis" "riktignok" "også" "ofte" "nødvendigvis"
                            "nesten" "neppe" "nemlig" "naturligvis" "muligvis" "muligens" "lykkeligvis" "liksom"
                            "klokelig" "kanskje" "jo" "jamvel" "jammen" "især" "imidlertid" "ikke" "heldigvis"
                            "gudskjelov" "gledeligvis" "følgelig" "fortrinnsvis" "forresten" "fornuftigvis"
                            "formodentlig" "formelig" "forhåpentligvis" "ellers" "eksempelvis" "dog" "dessverre"
                            "dessuten" "beklageligvis" "bare" "antakelig" "antagelig" "altså" "alltid" "aldri"
                            ("kan" adv) ("hende" adv) ("nok" adv) ("nå" adv) ("så" adv) ("da" adv))
               (sier-verb "tilføye" "tenke" "svare" "sukke" "spørre" "skrive" "si" "rope" "mumle" "mene"
                          "hyle" "hviske" "fortsette" "fortelle" "anta" "advare")))
    (setf fc-state
          (if fc-state
            (fc-state-union fc-state (make-fc-state (sort-fc (cdr set))))
            (make-fc-state (sort-fc set)))))
  (make-bitvector-state fc-state)
  fc-state)

(defparameter *target-select-state*
  (let ((targets ())
        (fc-state nil))
    (loop for rule across (rule-array *nbo-cg*)
          when (eq (rule-type rule) '=0)
          do (pushnew (list (if (rule-domain rule)
                              (cons (rule-domain rule) (car (rule-target rule)))
                              (car (rule-target rule))))
                      targets
                      :test #'equal))
    (dolist (target (print (mapcar #'sort-fc targets)))
      (setf fc-state
            (if fc-state
              (fc-state-union fc-state (make-fc-state target))
              (make-fc-state target))))
    (make-bitvector-state fc-state)
    fc-state))


(next-fc-state-bb *target-select-state* '("mente" "noe" subst verb))

(let ((bvs ()))
  (dolist (target *targets*)
    (map-subsets (lambda (set)
                   (pushnew (next-fc-state-bb *target-select-state* set) bvs :test #'equal))
                 (car target)))
  (length bvs))

(length *targets*)

(target-rules '((det mask)) '=0)

(defun target-rules (target rule-type)
  (loop for rule across (rule-array *nbo-cg*)
        when (and (eq (rule-type rule) rule-type)
                  (equal target (rule-target rule)))
        collect rule))

(defparameter *targets*
  '(((det ent)) ((det fl poss)) ((det fl kvant)) ((det noeyt poss)) ((det fem poss)) ((det fem kvant))
    ((det mask poss)) ((det kvant mask)) ((fork)) ((det fem)) ((det mask)) ((det noeyt)) ((det fl))
    ((subst uboey)) ((adj ub)) ((adj ent ub)) ((adj m/f ub)) ((adj noeyt ub)) ((adj noeyt)) ((adj be))
    ((adj ent m/f)) ((adj be ent)) ((adj ent noeyt)) ((adj ent m/f)) ((adj ent)) ((adj fl))
    ((<perf-part> adj)) ((adj m/f)) ((adj gen)) ((adj ent m/f ub)) ((adj ent noeyt ub)) ((adj))
    ((<perf-part> be ent)) ((<perf-part> ent m/f ub)) ((<perf-part> ent noeyt ub)) ((<perf-part> fl))
    ((<pres-part>)) ((<perf-part>)) ((ent subst ub)) ((subst ub)) ((fl subst)) ((subst)) ((adv))
    ((pers pron)) ((nom pron)) ((akk pron)) ((pron)) ((det)) ((inf verb)) ((perf-part verb)) ((imp))
    ((pret verb)) ((pres verb)) ((gen)) ((verb)) ((interj)) ((clb konj)) ((konj)) ((clb)) ((sbu))
    (("alene" subst)) (("alle" subst)) (("alt" subst)) (("alt" subst ub)) (("alt" adj ub))
    (("andre" det fl)) (("andre" adj ub)) (("andre" adj fl)) (("andre" det ent)) (("andre" adj))
    (("angående" adj)) (("anstrengt" verb)) (("bak" subst)) (("bare" sbu)) (("bredt" verb))
    (("dager" verb)) (("egen" adj m/f)) (("eksklusiv" prep)) (("eksklusive" prep)) (("eldste" subst))
    (("eller" pres)) (("eller" clb)) (("en" adv)) (("enn" adv)) (("far" subst)) (("felt" subst))
    (("folk" subst)) (("folket" verb)) (("for" adv)) (("for" verb)) (("fort" subst))
    (("før" adj ent ub)) (("før" pres verb)) (("før" verb)) (("før" adv)) (("føre" prep))
    (("føre" adj fl)) (("ganger" verb)) (("gode" subst)) (("godt" subst)) (("godta" verb))
    (("godt" verb)) (("grunnet" prep)) (("grått" verb)) (("ham" subst)) (("heim" subst)) (("heim" prep))
    (("heime" inf)) (("hele" subst)) (("heller" verb)) (("heller" subst)) (("hennes" prep))
    (("helt" subst)) (("hisset" prep)) (("hit" subst)) (("hjem" subst)) (("hjem" prep))
    (("hun" pron)) (("ingenting" subst uboey)) (("intet" det noeyt)) (("jeg" pron))
    (("klart" verb)) (("kontra" adj)) (("kontra" verb)) (("kontra" pret)) (("lange" subst))
    (("lett" verb)) (("lettere" subst)) (("like" subst)) (("like" adj)) (("livet" verb))
    (("løs" verb)) (("meget" perf-part)) (("meget" <perf-part>)) (("men" subst)) (("mens" subst))
    (("mente" subst)) (("midt" subst)) (("mot" subst)) (("mot" subst ub)) (("noe" pron))
    (("noe" det kvant noeyt)) (("noe" det kvant mask)) (("noe" det fem kvant)) (("noe" det fl)) 
    (("noe" det)) (("nå" subst)) (("nå" verb)) (("når" adv)) (("og" clb)) (("om" prep))
    (("opptatt" verb)) (("ost" prep)) (("ost" subst)) (("ost" adj)) (("pluss" subst)) (("post" prep))
    (("redd" verb)) (("rent" verb)) (("selv" adv)) (("selv" subst)) (("spent" perf-part)) (("siden" subst))
    (("sist" adj)) (("sjøl" adv)) (("slags" noeyt)) (("slags" subst)) (("slutt" adj))
    (("stolt" verb)) (("svart" verb)) (("så" subst)) (("så" verb)) (("tanker" verb)) (("til" sbu))
    (("timer" verb)) (("under" subst)) (("vann" verb)) (("var" subst)) (("var" adj m/f pos))
    (("være" subst)) (("ved" subst)) (("vel" subst)) (("verken" subst ub)) (("ville" verb))
    (("ville" subst ub)) (("ville" adj be ent)) (("ville" adj fl)) (("åtte" verb)) (("åtte" <perf-part>))
    (("ei" adv)) (("lite" verb)) (("lite" adj fem mask)) (("lite" adj fl)) (("la" subst))))

(test-union-b '(a (b c)) '((a b) d) '(a b c d e))

(test-union-b '(a (b c) (b e)) '((b d) f) '(a b c d e f))
(test-union '(a (b c) (b e)) '((b d) f) '(a b c d e f))

(test-union-b '((a f g) (b c) (b e)) '((b d) (c d e) (f g)) '(a b c d e f g))
(test-union '((a f g) (b c) (b e)) '((b d) (c d e) (f g)) '(a b c d e f g))

(next-fc-state (complete-fc-state (make-fc-state '((a b) (b c)) 1)) '(a b))
(next-fc-state (complete-fc-state (make-fc-state '(a (b c)) 1)) '(a b))

(-1 (a (1))
    (b (-1 (c (1)))))

(-1 (a (1 (b (-1 (c (1))))))
    (b (-1 (c (1)))))

(complete-fc-state (fc-state-union (make-fc-state '(a (b c)) 1)
                                   (make-fc-state '((a b) d) 2)))

((-1 . -2)
 (a ((1 . -2)
     (b ((1 . 2)))))
 (b ((-1 . -2)
     (c ((1 . -2)))))
 (d ((-1 . 2))))

((-1 . -2)
 (a ((1 . -2)
     (b ((1 . 2)
         (c ((1 . 2)
             (d ((1 . 2)))))
         (d ((1 . 2)))))
     (d ((1 . 2)))))
 (b ((-1 . -2)
     (c ((1 . -2)
         (d ((1 . 2)))))
     (d ((-1 . 2)))))
 (d ((-1 . 2))))

(next-fc-state 
 (complete-fc-state (fc-state-union (make-fc-state '(a (b c)) 1)
                                    (make-fc-state '((a b) d) 2)))
 '(a d))

(next-fc-state-b 
 (fc-state-union (make-fc-state '(a (b c)) 1)
                 (make-fc-state '((a b) d) 2))
 '(a d))

(-1 (a (-1 (b (-1 (e (1))))))
    (b (-1 (c (1)))))

(next-fc-state (complete-fc-state (make-fc-state '((a b e) (b c)) 1))
               '(a b c))

(-1 (a (-1 (b (-1 (b (-1 (c (1))))
                  (e (1))))
           (b (-1 (c (1))))))
    (b (-1 (c (1)))))
=>
(-1 (a (-1 (b (-1 (b (-1 (c (1))))
                  (c (1))
                  (e (1))))))
    (b (-1 (c (1)))))

(next-fc-state (complete-fc-state (make-fc-state '((a b) (b c)) 1))
               '(a b))

(-1 (a (-1 (b (1)) 
           (b (-1 (c (1))))))
    (b (-1 (c (1)))))
=>
(-1 (a (-1 (b (1))))
    (b (-1 (c (1)))))

#+test
(next-fc-state (complete-fc-state (make-fc-state '(b (c d) (c g h) (c g i)) 1))
               '(a c f g i))

(fc-state-union (complete-fc-state (make-fc-state '(a (b c)) 1))
                (complete-fc-state (make-fc-state '((a b) d) 2)))


(fc-state-union (make-fc-state '(a (b c)) 1)
                (make-fc-state '((a b) d) 0 1))

(next-fc-state (make-fc-state '(a (b c)) 1)
                              '(a b c))

(next-fc-state (make-fc-state '(a (b c) (b e f)) 1)
                              '(b d e f))

(next-fc-state (make-fc-state '(a (b c) (b e g)) 1)
                              '(b e h))

(make-fc-state '(a (b c)) 1)

(make-fc-state '(a (b c) (b e f)) 1)

(make-fc-state '(a (b c) (b e f g) (d e h) (d e r) (d f)) 1)

(next-fc-state (make-fc-state '((a b) d) 1)
                              '(a d e f))


(complete-fc-state
 (make-fc-state
  (sort-fc '(a (b d e) (c e))) 1))

(complete-fc-state 
 (make-fc-state 
  (sort-fc '(faren (kute adj perf-part) (live perf-part))) 1))

(time 
 (progn
   (complete-fc-state 
    (make-fc-state 
     (sort-fc '("året" "skyld" "lo" "hull" "faren" ("skygg" be)
                ("folke" <perf-part>) ("live" <perf-part>) ("kute" adj <perf-part>))) 1))
   nil))


(complete-fc-state 
 (make-fc-state 
  (sort-fc 
   '(@fv @iv @subj @obj @i-obj @s-pred @o-pred @adv @<adv @app @tittel @det>
     @<det @subst> @<subst @<p-utfyll @interj @kon @loes-np @<sbu @<sbu-rel @s-gr))
  1))

(time (with-slots (set-declarations) (or *nbo-cg* (gethash "nbo" *cg-table*))
        (maphash (lambda (key value)
		   (declare (ignore key))
		   ;;(print key) ;;(print value)
                   (complete-fc-state 
                    (make-fc-state 
		     (remove-duplicates
		      (sort-fc (mapcar (lambda (afc) (ensure-list afc))  (cdr value)))
		      :test #'equal)
                     1)))
                 set-declarations)))

(Print 
 (complete-fc-state 
  (make-fc-state
   (sort-fc 
    '(("hjelp" FL UB) ("lede" MASK FL UB)
      ("led" MASK FL UB) ("falle" MASK FL UB) ("fall" MASK FL UB)
      ("snus" MASK FL UB) ("finn" FL UB) ("finne" FL UB) ("komme" FL UB) ("under" FL UB) ("får" FL) ("ønske" FL)
      ("slag" GEN) ("jeg" FL)
      ("lo" FL) ("var" FL) ("nå" FL) ("sett" FL) ("al" FL BE) ("mot" FL UB) ("men" FL UB)
      ("gir" FL UB)
      ))
  1))))

(make-fc-state
 (remove-duplicates
  (sort-fc 
   '("år" "uke" "tusen" "trillion" "tonnkilometer" "time" "tiendelssekund" "tidelssekund" "snes" "sjømil"
     "sekundmeter" "sekund" "prosent" "nanosekund" "nanometer" "måned" "mrd." "minutt" "millisekund" "million"
     "millimeter" "milliliter" "milligram" "milliard" "mill." "mil" "mikrometer" "meter" "liter" "kvartmil"
     "kvartliter" "kvadrillion" "kvadratmillimeter" "kvadratmeter" "kvadratkilometer" "kvadratdesimeter"
     "kvadratcentimeter" "kubikkmillimeter" "kubikkmeter" "kubikkdesimeter" "kubikkcentimeter" "kilometer"
     "kilogram" "kilo" "hundredelssekund" "hundre" "hektoliter" "hektogram" "halvår" "halvmillion" "halvmil"
     "halvmeter" "halvliter" "halvkilo" "gram" "døgn" "dusin" "desimeter" "desiliter" "desigram" "dekaliter" "dag"
     "centimeter" "centiliter" "centigram" "billion" "billiard" (SUBST) (SUBST)
     ("gang" FL))) :test #'equal)
 1)


(farlige-adj "året" "vite" "vis" "var" "tids" "sige" "se" "mige" "live" "like" "lette" "lage"
     "helle" "før" "fore" "ete" "eie" "egen" "bar" "annen" "angående" "ale")
(pres/pret (verb pres) (verb pret))
(inf inf)
(det det)
(be-ent-fem-subst (subst fem ent be))
(ikke-subst "siden" "$-" "$," verb prep pron sbu konj inf-merke det interj adj adv)

(@w =! (adj be ent)
    (not 0 farlige-adj)
    (not 0 pres/pret)
    (not 0 inf)
    (not -1 det)
    (1 be-ent-fem-subst)
    (not 1 ikke-subst))

;; 2875
("like" =0 (adj)
    (not 1 %kamp/fot/tall%)
    (not -1 %for%)
    (not *-1 verb)
    (not 1 ub-fl-subst)
    (:comment "5.3.2001: not 1 ub-fl-subst: med like rettigheter for alle"))

(partition-constraints
 '((not 1 %kamp/fot/tall%)
   (not -1 %for%)
   (*-1 verb *r)
   (not lr0 %se/hoeres/kjennes% *r)
   (not lr0 kop)
   (not 1 ub-fl-subst)))

(partition-constraints
 '((not -1 det-prep-infmerke-adjbe)
   (not -2 be-noeyt-det)
   (1 %opp%)
   (*-1 %ha% *r)
   (not *r fv)
   (*-1 %ha% *r)
   (not *r perf-part)
   (*-1 %ha% *r)
   (not *r setn-gr)
   (*-1 setn-gr *r)
   (*r nom)))

(1 ((1 %opp%)) 
 -2 ((not -2 be-noeyt-det))
 -1 (((*-1 setn-gr *r) (*r nom))
     ((*-1 %ha% *r) (not *r setn-gr))
     ((*-1 %ha% *r) (not *r perf-part))
     ((*-1 %ha% *r) (not *r fv))
     (not -1 det-prep-infmerke-adjbe)))

(partition-constraints
 '((not 1 %kamp/fot/tall%)
   (not -1 %for%)
   (not *-1 verb)
   (not 1 ub-fl-subst)))

(-1 (((not *-1 verb))
     (not -1 %for%))
  1 ((not 1 ub-fl-subst)
     (not 1 %kamp/fot/tall%)))

(partition-constraints
 '((not 0 farlige-adj)
   (not 0 pres/pret)
   (not 0 inf)
   (not -1 det)
   (1 be-ent-fem-subst)
   (not 1 ikke-subst)))

(1 ((not 1 ikke-subst)
    (1 be-ent-fem-subst))
 -1 ((not -1 det))
 0 ((not 0 inf)
    (not 0 pres/pret)
    (not 0 farlige-adj)))

||#

(defclass constraint-state ()
  ((label :initform nil :initarg :label :accessor state-label) ;; not unique!
   (positive-constraints :initform nil :initarg :positive :accessor positive-constraints)
   (negative-constraints :initform nil :initarg negative :accessor negative-constraints)
   (next-states :initform () :initarg :next-states :accessor next-states)))

(defparameter *max-rule-scope* 25)

(defmethod add-simple-constraint ((net constraint-state) constraint pos neg-p &key scan-p)
  (labels ((add (state pos)
             (with-slots (label negative-constraints positive-constraints next-states) state
               (cond ((and (numberp label) (> label *max-rule-scope*))
                      nil)
                     ((eq label pos)
                      (if neg-p
                        (push constraint negative-constraints)
                        (push constraint positive-constraints))
                      (when (and scan-p (plusp pos))
                        (add state (1+ pos))))
                     (next-states
                      (when (and scan-p (minusp pos) (numberp label) (< label pos))
                        (if neg-p
                          (push constraint negative-constraints)
                          (push constraint positive-constraints)))
                      (mapc (lambda (state) (add state pos)) next-states))
                     ((eq label '*)
                      (push (make-instance 'constraint-state :label (- *max-rule-scope*))
                            next-states)
                      (add state pos))
                     (t
                      (when (and scan-p (minusp pos) (< label pos))
                        (if neg-p
                          (push constraint negative-constraints)
                          (push constraint positive-constraints)))
                      (push (make-instance 'constraint-state :label (1+ label))
                            next-states)
                      (add state pos))))))
    (add net pos)))

#+old
(defmethod add-scan-constraint-chain ((net constraint-state) scan-constraints)
  (print scan-constraints)
  (destructuring-bind (constraint neg-p inst-pos . rest) (car scan-constraints)
    (declare (ignore constraint neg-p rest))
    (labels ((walk-links (link-constraints start &optional inst-p)
                (destructuring-bind (constraint neg-p pos abs-p careful-p
                                                scan-p backtrack-p 
                                                left-link-p right-link-p)
                                    (car link-constraints)
                  (declare (ignore neg-p abs-p careful-p backtrack-p))
                  (collecting
                    (labels ((walk-next-link (lp)
                                (if (cdr link-constraints)
                                  (mapcar (lambda (lc)
                                            (collect (cons (list lp constraint) lc)))
                                          (walk-links (cdr link-constraints) lp))
                                  (collect (list (list lp constraint))))))
                      (cond ((not scan-p)
                             (let ((lp (+ start (or pos 0))))
                               (walk-next-link lp)))
                            ((and (plusp inst-pos) (if inst-p t right-link-p))
                             (let ((first (+ start (or pos 0) (if inst-p 0 1))))
                               (loop for lp from first to *max-rule-scope*
                                     do (walk-next-link lp))))
                            ((and (plusp inst-pos) (if inst-p t left-link-p))
                             (loop for lp from 1 to (+ start (or pos 0) (if inst-p 0 -1))
                                   do (walk-next-link lp)))
                            ((and (minusp inst-pos) (if inst-p t left-link-p))
                             (loop for lp from (- *max-rule-scope*) to (+ start (or pos 0) (if inst-p 0 -1))
                                   do (walk-next-link lp)))
                            ((and (minusp inst-pos) (if inst-p t right-link-p))
                             (loop for lp from (+ start (or pos 0) (if inst-p 0 1)) to -1
                                   do (walk-next-link lp)))))))))
      (walk-links scan-constraints 0 t))))

(defmethod add-simple-constraint ((net list) constraint pos neg-p &key careful-p scan-p)
  (labels ((add (pos)
             (cond ((> pos *max-rule-scope*)
                    nil)
                   ((< pos (- *max-rule-scope*))
                    nil)
                   (t
                    (if neg-p
                      (push (list pos careful-p () (list constraint)) net)
                      (push (list pos careful-p (list constraint) ()) net))
                    (when scan-p
                      (if (plusp pos)
                        (add (1+ pos))
                        (add (1- pos))))))))
    (add pos)
    net))

(defmethod add-scan-constraint-chain ((net list) scan-constraints)
  (destructuring-bind (constraint neg-p inst-pos . rest) (car scan-constraints)
    (declare (ignore constraint neg-p rest))
    (labels ((walk-links (link-constraints start &optional inst-p)
                (destructuring-bind (constraint neg-p pos abs-p careful-p
                                                scan-p backtrack-p 
                                                left-link-p right-link-p)
                                    (car link-constraints)
                  (declare (ignore abs-p))
                  (setf careful-p (not (not careful-p)))
                  (collecting
                    (labels ((add-neg-rel-constraints (start end)
                                (assert (null (cdr link-constraints)))
                                (collect (loop for i from start to end
                                               collect (list i careful-p () (list constraint)))))
                             (walk-next-link (lp &optional first)
                                (let ((inhibitors
                                       (when (and first (not backtrack-p))
                                         (loop for i from (min lp first) to (max lp first)
                                               unless (= i lp)
                                               collect (list i careful-p () (list constraint)))))
                                      (position-constraint
                                       (if neg-p
                                         (list lp careful-p () (list constraint))
                                         (list lp careful-p (list constraint) ()))))
                                  (if (cdr link-constraints)
                                    (mapcar (lambda (lc)
                                              (collect (append inhibitors
                                                               (cons position-constraint lc))))
                                            (walk-links (cdr link-constraints) lp))
                                    (collect (append inhibitors (list position-constraint)))))))
                             (cond ((not scan-p)
                             (let ((lp (+ start (or pos 0))))
                               (walk-next-link lp)))
                            ((and (plusp inst-pos) (or inst-p right-link-p))
                             (let ((first (+ start (or pos 0) (if inst-p 0 1))))
                               (if neg-p
                                 (add-neg-rel-constraints first *max-rule-scope*)
                                 (loop for lp from first to *max-rule-scope*
                                       do (walk-next-link lp first)))))
                            ((and (plusp inst-pos) (or inst-p left-link-p))
                             (let ((first (+ start (or pos 0) (if inst-p 0 -1))))
                               (if neg-p
                                 (add-neg-rel-constraints 1 first)
                                 (loop for lp from 1 to first
                                       do (walk-next-link lp first)))))
                            ((and (minusp inst-pos) (or inst-p left-link-p))
                             (let ((first (+ start (or pos 0) (if inst-p 0 -1))))
                               (if neg-p
                                 (add-neg-rel-constraints (- *max-rule-scope*) first)
                                 (loop for lp from (- *max-rule-scope*) to first
                                     do (walk-next-link lp first)))))
                            ((and (minusp inst-pos) (or inst-p right-link-p))
                             (let ((first (+ start (or pos 0) (if inst-p 0 1))))
                               (if neg-p
                                 (add-neg-rel-constraints first -1)
                                 (loop for lp from first to -1
                                       do (walk-next-link lp)))))))))))
      (append net (list (cons 'or (mapcar (lambda (c-list)
                                            (cons 'seq (simplify-constraint-list c-list)))
                                          (walk-links scan-constraints 0 t))))))))

(defun simplify-constraint-list (c-list)
  (collecting
    (loop for pos from (- *max-rule-scope*) to *max-rule-scope*
          do (let ((position-constraint nil)
                   (careful-position-constraint nil))
               (dolist (pc c-list)
                 (when (= (car pc) pos)
                   (cond ((cadr pc) ;; careful
                          (unless careful-position-constraint
                            (setf careful-position-constraint (list pos nil () ())))
                          (dolist (c (caddr pc)) ;; pos
                            (pushnew c (caddr careful-position-constraint)))
                          (dolist (c (cadddr pc)) ;; neg
                            (pushnew c (cadddr careful-position-constraint))))
                         (t
                          (unless position-constraint
                            (setf position-constraint (list pos nil () ())))
                          (dolist (c (caddr pc)) ;; pos
                            (pushnew c (caddr position-constraint)))
                          (dolist (c (cadddr pc)) ;; neg
                            (pushnew c (cadddr position-constraint)))))))
               (when position-constraint
                 (collect position-constraint))
               (when careful-position-constraint
                 (collect careful-position-constraint))))))

(defmethod flatten-constraints-net ((net list))
  (if (null (cdddr net))
    net
    (list 'seq (cadr net)
          (list* 'or
                 (collecting
                   (labels ((walk (disjunction union)
                              (if disjunction
                                (dolist (seq (cdar disjunction))
                                  (walk (cdr disjunction) (append (cdr seq) union)))
                                (collect (cons 'seq (simplify-constraint-list union))))))
                     (walk (cdddr net) ())))))))

(defmethod build-constraints-tree ((net list))
  (let ((tree (list 'or)))
    (labels ((walk (disjunction union)
               (if disjunction
                 (dolist (seq (cdar disjunction))
                   (walk (cdr disjunction) (append (cdr seq) union)))
                 (insert-seq tree (simplify-constraint-list union))))
             (insert-seq (tree seq)
               (cond ((eq (car tree) 'or)
                      (let ((branch (find (car seq) (cdr tree) :key #'car :test #'equal)))
                        (cond ((null branch)
                               (push seq (cdr tree)))
                              ((null (cdr branch))
                               (setf (cdr branch) (list 'or () (cdr seq))))
                              (t
                               (insert-seq (cdr branch) (cdr seq))))))
                     (t
                      (cond ((equal (car tree) (car seq))
                             (insert-seq (cdr tree) (cdr seq)))
                            (t
                             (setf (car tree)
                                   (list 'or
                                         (cons (car tree) (cdr tree))
                                         seq)
                                   (cdr tree) nil)))))))
      (walk (cdddr net) ())
      (list (cadr net) tree))))

#+test
(time 
 (defparameter *net*
   (flatten-constraints-net ;; build-constraints-tree
    (build-constraints-net 
     '(A B C)
     '((*-1 A)
       (*L B)
       (not L-1 F)
       (1 F)
       (not 1 R)
       (0 B))))))

#+test
((* nil (a b c) nil)
 (or ((-3 nil nil (f)) (-2 nil (b) nil) (-1 nil (a) nil))
     ((-4 nil nil (f)) (-3 nil (b) nil)
      (or ((-2 nil (a) nil) (-1 nil nil (a)))
          ((-2 nil nil (b)) (-1 nil (a) nil))))
     ((-4 nil (b) nil)
      (or ((or ((-3 nil (a) nil) (-2 nil nil (a)) (-1 nil nil (a)))
               ((-3 nil nil (b)) (-2 nil (a) nil) (-1 nil nil (a)))))
          ((-3 nil nil (b)) (-2 nil nil (b)) (-1 nil (a) nil))))))

#+test
(seq (* nil (a b c) nil)
     (or (seq (-4 nil (b) nil) (-3 nil (a) nil) (-2 nil nil (a)) (-1 nil nil (a)))
         (seq (-4 nil (b) nil) (-3 nil nil (b)) (-2 nil (a) nil) (-1 nil nil (a)))
         (seq (-4 nil (b) nil) (-3 nil nil (b)) (-2 nil nil (b)) (-1 nil (a) nil))
         (seq (-4 nil nil (f)) (-3 nil (b) nil) (-2 nil (a) nil) (-1 nil nil (a)))
         (seq (-4 nil nil (f)) (-3 nil (b) nil) (-2 nil nil (b)) (-1 nil (a) nil))
         (seq (-3 nil nil (f)) (-2 nil (b) nil) (-1 nil (a) nil))))

#+test
(defparameter *net*
  (build-constraints-net 
   '(A B C)
   '((*-1 A)
     (*L B)
     (not L-1 F)
     (*2 C)
     (*L D)
     (1 F)
     (not 1 R)
     (0 B)
     )))

#+test
(defparameter *net*
  (build-constraints-net 
   '(A B C)
   '((*1 A)
     (not *L G)
     (*2 B)
     (*L C)
     (1 C)
     (2 D))))


#+test
(defparameter *net*
  (build-constraints-net 
   '(A B C)
   '((*-1 A)
     (*L B)
     (L-1 E)
     (LR0 F)
     (1 C)
     (2 D))))

(defun build-constraints-net (target constraints)
  (let ((net ())
        (scanning ())
        (scan-partitions ()))
    (dolist (constraint constraints)
      (let ((neg-p (eq (car constraint) 'NOT)))
        (multiple-value-bind (pos abs-p careful-p scan-p backtrack-p 
                                  left-link-p right-link-p)
                             (parse-position-operator
                              (if neg-p 
                                (cadr constraint)
                                (car constraint)))
          ;; NEG-P POS ABS-P CAREFUL-P SCAN-P BACKTRACK-P LEFT-LINK-P RIGHT-LINK-P
          (let* ((ppo (list neg-p pos abs-p careful-p scan-p backtrack-p 
                           left-link-p right-link-p))
                 (parsed-constraint (if neg-p
                                      (caddr constraint)
                                      (cadr constraint))))
            (cond ((or left-link-p right-link-p)
                   (setf (cdr scanning)
                         (append (cdr scanning)
                                 (list (cons parsed-constraint ppo)))))
                  ((not scan-p)
                   (setf scanning nil)
                   (setf net (add-simple-constraint net parsed-constraint pos neg-p
                                                    :careful-p (not (not careful-p)))))
                  (neg-p
                   (setf net (add-simple-constraint net parsed-constraint pos neg-p 
                                                    :scan-p t
                                                    :careful-p (not (not careful-p)))))
                  (t
                   (setf scanning (list (cons parsed-constraint ppo)))
                   (push scanning scan-partitions)))))))
    (setf net (list* 'seq
                     (list '* nil target ())
                     (when net (list (list 'or (cons 'seq (simplify-constraint-list net)))))))
    (dolist (scan-constraints scan-partitions)
      (setf net (add-scan-constraint-chain net scan-constraints)))
    net))

(defmethod print-net ((net constraint-state))
  (let ((id 0))
    (labels ((print-net (state prev)
               (with-slots (label negative-constraints positive-constraints next-states) state
                 (format t "~&~2d->~2d : ~a ~{~a~^, ~} - ~{~a~^, ~}~%"
                         prev (incf id) label positive-constraints negative-constraints)
                 (mapc (lambda (state) (print-net state id)) next-states))))
      (print-net net id))))

#+test
(defparameter *net*
  (build-constraints-net 
   '("felt" subst ent)
   '((not -1 %som%-prep)
     (not *-1 ub-noeyt-det)
     (*-1 periode-beg/konj-clb *r)
     (*r hj-verb))))

#+test
(time
 (defparameter *net*
   (progn ; flatten-constraints-net ;; build-constraints-tree
    (build-constraints-net 
     '("fast" adj m/f ub ent)
     '((*-1 setn-gr r+1)
       (not r+1 prep/adv)
       (not 0 farlige-adj)
       (*-1 be-ent-mask/fem-subst *r)
       (not *r ikke-adv)
       (*-1 be-ent-mask/fem-subst *l)
       (*lc %fast%-verb l-1)
       (not l-1 clb)
       (*-1 %fast%-verb *r)
       (not *r ikke-adv-adj-det-subst)
       (not 1 subst/adj))))))


#+test
((* nil ("fast" adj m/f ub ent) nil)
 (or ((-3 nil nil (clb)) 
      (or ((or ((or ((or ((or ((or ((or ((-2 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) nil) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))) ((-2 nil (%fast%-verb be-ent-mask/fem-subst) nil) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-2 nil (%fast%-verb setn-gr) nil) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv))))) ((-2 nil (%fast%-verb) nil) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (0 nil nil (prep/adv))))) ((-2 nil (be-ent-mask/fem-subst setn-gr) nil) (-2 t (%fast%-verb) nil) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-2 nil (be-ent-mask/fem-subst) nil) (-2 t (%fast%-verb) nil) (-1 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) (be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-2 nil (setn-gr) nil) (-2 t (%fast%-verb) nil) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (setn-gr prep/adv))))) ((-2 t (%fast%-verb) nil) (-1 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) nil) (0 nil nil (prep/adv)))))
     ((-3 nil (setn-gr) (clb)) (or ((or ((or ((-2 nil (%fast%-verb be-ent-mask/fem-subst) (setn-gr prep/adv)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))) ((-2 nil (%fast%-verb) (setn-gr prep/adv)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr))))) ((-2 nil (be-ent-mask/fem-subst) (setn-gr prep/adv)) (-2 t (%fast%-verb) nil) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-2 nil nil (setn-gr prep/adv)) (-2 t (%fast%-verb) nil) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (setn-gr)))))
     ((-3 nil (be-ent-mask/fem-subst) (clb)) (or ((or ((or ((-2 nil (%fast%-verb setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))) ((-2 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-2 nil (setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-2 t (%fast%-verb) nil) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-2 nil nil (be-ent-mask/fem-subst ikke-adv)) (-2 t (%fast%-verb) nil) (-1 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) (be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv)))))
     ((-3 nil (be-ent-mask/fem-subst setn-gr) (clb)) (or ((-2 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))) ((-2 nil nil (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 t (%fast%-verb) nil) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr)))))
     ((-3 nil (%fast%-verb) (clb)) (or ((or ((or ((-2 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))) ((-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-2 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv))))) ((-2 nil nil (%fast%-verb ikke-adv-adj-det-subst)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (0 nil nil (prep/adv)))))
     ((-3 nil (%fast%-verb setn-gr) (clb)) (or ((-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))) ((-2 nil nil (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr)))))
     ((-3 nil (%fast%-verb be-ent-mask/fem-subst) (clb)) (or ((-2 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))) ((-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv)))))
     ((-3 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) (clb)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr)))
     ((-4 nil nil (clb)) (or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((-3 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) nil) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))) ((-3 nil (%fast%-verb be-ent-mask/fem-subst) nil) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (%fast%-verb be-ent-mask/fem-subst) nil) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-1 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (%fast%-verb setn-gr) nil) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (%fast%-verb) nil) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (%fast%-verb) nil) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-1 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (%fast%-verb setn-gr) nil) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr))))) ((-3 nil (%fast%-verb) nil) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr prep/adv))))) ((-3 nil (%fast%-verb) nil) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst)) (0 nil nil (prep/adv))))) ((-3 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) nil) (-3 t (%fast%-verb) nil) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (%fast%-verb be-ent-mask/fem-subst) nil) (-3 t (%fast%-verb) nil) (-2 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (%fast%-verb be-ent-mask/fem-subst) nil) (-3 t (%fast%-verb) nil) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (%fast%-verb setn-gr) nil) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (%fast%-verb) nil) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (%fast%-verb) nil) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (%fast%-verb setn-gr) nil) (-3 t (%fast%-verb) nil) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr))))) ((-3 nil (%fast%-verb) nil) (-3 t (%fast%-verb) nil) (-2 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv))))) ((-3 nil (%fast%-verb) nil) (-3 t (%fast%-verb) nil) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (0 nil nil (prep/adv))))) ((-3 nil (be-ent-mask/fem-subst setn-gr) nil) (-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv)) (-1 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) nil) (-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (setn-gr prep/adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) nil) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb be-ent-mask/fem-subst) nil) (-1 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) nil) (-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (setn-gr prep/adv)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr))))) ((-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr prep/adv))))) ((-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb be-ent-mask/fem-subst) nil) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst)) (0 nil nil (prep/adv))))) ((-3 nil (be-ent-mask/fem-subst setn-gr) nil) (-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) nil) (-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) nil) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb be-ent-mask/fem-subst) nil) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) nil) (-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb) (setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr))))) ((-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb setn-gr) nil) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv))))) ((-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb) nil) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (0 nil nil (prep/adv))))) ((-3 nil (be-ent-mask/fem-subst setn-gr) nil) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-1 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-1 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv)) (-1 nil (%fast%-verb setn-gr) (be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) nil) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (setn-gr prep/adv)) (-1 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst setn-gr) nil) (-1 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) nil) (-1 nil (%fast%-verb setn-gr) (be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) nil) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (setn-gr prep/adv)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst setn-gr))))) ((-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst setn-gr) nil) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst setn-gr prep/adv))))) ((-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) nil) (-1 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) (be-ent-mask/fem-subst)) (0 nil nil (prep/adv))))) ((-3 nil (be-ent-mask/fem-subst setn-gr) nil) (-3 t (%fast%-verb) nil) (-2 nil nil (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-3 t (%fast%-verb) nil) (-2 nil (setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-3 t (%fast%-verb) nil) (-2 nil nil (be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) (be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) nil) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst setn-gr) nil) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) nil) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) (be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) nil) (-3 t (%fast%-verb) nil) (-2 nil nil (setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (setn-gr))))) ((-3 t (%fast%-verb) nil) (-2 nil (setn-gr) nil) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (setn-gr prep/adv))))) ((-3 t (%fast%-verb) nil) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) nil) (0 nil nil (prep/adv))))) 
     ((-4 nil (setn-gr) (clb)) (or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((-3 nil (%fast%-verb be-ent-mask/fem-subst) (setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))) ((-3 nil (%fast%-verb) (setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (%fast%-verb) (setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr))))) ((-3 nil (%fast%-verb be-ent-mask/fem-subst) (setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (%fast%-verb) (setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (%fast%-verb) (setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) (setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (setn-gr)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (setn-gr)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) (setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb) (setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) (setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr)) (-1 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (setn-gr)) (-1 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (setn-gr)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) (setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil nil (be-ent-mask/fem-subst ikke-adv setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil nil (setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (setn-gr)))))
     ((-4 nil (be-ent-mask/fem-subst) (clb)) (or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((-3 nil (%fast%-verb setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))) ((-3 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-1 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (%fast%-verb setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-3 t (%fast%-verb) nil) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv)) (-3 t (%fast%-verb) nil) (-2 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv)) (-3 t (%fast%-verb) nil) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (be-ent-mask/fem-subst ikke-adv)) (-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil nil (be-ent-mask/fem-subst ikke-adv)) (-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv)) (-1 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (be-ent-mask/fem-subst ikke-adv)) (-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil nil (be-ent-mask/fem-subst ikke-adv)) (-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-1 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (be-ent-mask/fem-subst ikke-adv)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-1 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil nil (be-ent-mask/fem-subst ikke-adv)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv)) (-1 nil (%fast%-verb setn-gr) (be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-3 t (%fast%-verb) nil) (-2 nil nil (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (be-ent-mask/fem-subst ikke-adv)) (-3 t (%fast%-verb) nil) (-2 nil (setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil nil (be-ent-mask/fem-subst ikke-adv)) (-3 t (%fast%-verb) nil) (-2 nil nil (be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) (be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv)))))
     ((-4 nil (be-ent-mask/fem-subst setn-gr) (clb)) (or ((or ((or ((or ((-3 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (or ((-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))) ((-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr)) (-1 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil nil (be-ent-mask/fem-subst ikke-adv setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr)))))
     ((-4 t (%fast%-verb) nil) (or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((-3 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) nil) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))) ((-3 nil (%fast%-verb be-ent-mask/fem-subst) nil) (-2 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (%fast%-verb be-ent-mask/fem-subst) nil) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-1 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr prep/adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (%fast%-verb be-ent-mask/fem-subst) nil) (-2 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (%fast%-verb be-ent-mask/fem-subst) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst)) (-1 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) nil) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr prep/adv)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr))))) ((-3 nil (%fast%-verb be-ent-mask/fem-subst) nil) (-2 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr prep/adv))))) ((-3 nil (%fast%-verb be-ent-mask/fem-subst) nil) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst)) (0 nil nil (prep/adv))))) ((-3 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) nil) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (%fast%-verb be-ent-mask/fem-subst) nil) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (%fast%-verb be-ent-mask/fem-subst) nil) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-1 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (%fast%-verb setn-gr) nil) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (%fast%-verb) nil) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (%fast%-verb) nil) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-1 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (%fast%-verb setn-gr) nil) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr))))) ((-3 nil (%fast%-verb) nil) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr prep/adv))))) ((-3 nil (%fast%-verb) nil) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst)) (0 nil nil (prep/adv))))) ((-3 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) nil) (-3 t nil (%fast%-verb)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (%fast%-verb be-ent-mask/fem-subst) nil) (-3 t nil (%fast%-verb)) (-2 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (%fast%-verb be-ent-mask/fem-subst) nil) (-3 t nil (%fast%-verb)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (%fast%-verb setn-gr) nil) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (%fast%-verb) nil) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (%fast%-verb) nil) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (%fast%-verb setn-gr) nil) (-3 t nil (%fast%-verb)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr))))) ((-3 nil (%fast%-verb) nil) (-3 t nil (%fast%-verb)) (-2 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv))))) ((-3 nil (%fast%-verb) nil) (-3 t nil (%fast%-verb)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (0 nil nil (prep/adv))))) ((-3 nil (be-ent-mask/fem-subst setn-gr) nil) (-2 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-2 nil (%fast%-verb setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-2 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv)) (-1 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (be-ent-mask/fem-subst setn-gr) nil) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst setn-gr prep/adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-2 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) (be-ent-mask/fem-subst)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst)) (-1 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (be-ent-mask/fem-subst setn-gr) nil) (-2 nil (%fast%-verb) (be-ent-mask/fem-subst setn-gr prep/adv)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-2 nil (%fast%-verb setn-gr) (be-ent-mask/fem-subst)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr prep/adv))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-2 nil (%fast%-verb) (be-ent-mask/fem-subst)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst)) (0 nil nil (prep/adv))))) ((-3 nil (be-ent-mask/fem-subst setn-gr) nil) (-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv)) (-1 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) nil) (-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (setn-gr prep/adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) nil) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb be-ent-mask/fem-subst) nil) (-1 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) nil) (-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (setn-gr prep/adv)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr))))) ((-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr prep/adv))))) ((-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb be-ent-mask/fem-subst) nil) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst)) (0 nil nil (prep/adv))))) ((-3 nil (be-ent-mask/fem-subst setn-gr) nil) (-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) nil) (-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) nil) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb be-ent-mask/fem-subst) nil) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) nil) (-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb) (setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr))))) ((-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb setn-gr) nil) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv))))) ((-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb) nil) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (0 nil nil (prep/adv))))) ((-3 nil (be-ent-mask/fem-subst setn-gr) nil) (-2 nil nil (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-1 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-2 nil (setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-1 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-2 nil nil (be-ent-mask/fem-subst ikke-adv)) (-1 nil (%fast%-verb setn-gr) (be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (be-ent-mask/fem-subst setn-gr) nil) (-2 nil (be-ent-mask/fem-subst) (be-ent-mask/fem-subst setn-gr prep/adv)) (-1 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-2 nil (be-ent-mask/fem-subst setn-gr) (be-ent-mask/fem-subst)) (-1 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-2 nil (be-ent-mask/fem-subst) (be-ent-mask/fem-subst)) (-1 nil (%fast%-verb setn-gr) (be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (be-ent-mask/fem-subst setn-gr) nil) (-2 nil nil (be-ent-mask/fem-subst setn-gr prep/adv)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-2 nil (setn-gr) (be-ent-mask/fem-subst)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst setn-gr prep/adv))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-2 nil nil (be-ent-mask/fem-subst)) (-1 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) (be-ent-mask/fem-subst)) (0 nil nil (prep/adv))))) ((-3 nil (be-ent-mask/fem-subst setn-gr) nil) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-1 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-1 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv)) (-1 nil (%fast%-verb setn-gr) (be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) nil) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (setn-gr prep/adv)) (-1 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst setn-gr) nil) (-1 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) nil) (-1 nil (%fast%-verb setn-gr) (be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) nil) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (setn-gr prep/adv)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst setn-gr))))) ((-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst setn-gr) nil) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst setn-gr prep/adv))))) ((-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) nil) (-1 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) (be-ent-mask/fem-subst)) (0 nil nil (prep/adv))))) ((-3 nil (be-ent-mask/fem-subst setn-gr) nil) (-3 t nil (%fast%-verb)) (-2 nil nil (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-3 t nil (%fast%-verb)) (-2 nil (setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (be-ent-mask/fem-subst) nil) (-3 t nil (%fast%-verb)) (-2 nil nil (be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) (be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) nil) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst setn-gr) nil) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) nil) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) (be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) nil) (-3 t nil (%fast%-verb)) (-2 nil nil (setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (setn-gr))))) ((-3 t nil (%fast%-verb)) (-2 nil (setn-gr) nil) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (setn-gr prep/adv))))) ((-3 t nil (%fast%-verb)) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) nil) (0 nil nil (prep/adv))))) ((-4 nil (setn-gr) nil) (or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((-4 t (%fast%-verb) nil) (or ((or ((or ((or ((or ((-3 nil (%fast%-verb be-ent-mask/fem-subst) (setn-gr prep/adv)) (or ((or ((or ((-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))) ((-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr))))) ((-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (%fast%-verb) (setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (%fast%-verb) (setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr))))) ((-3 nil (%fast%-verb be-ent-mask/fem-subst) (setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (%fast%-verb) (setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (%fast%-verb) (setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr))))) ((-3 nil (%fast%-verb be-ent-mask/fem-subst) (clb setn-gr prep/adv)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (%fast%-verb) (clb setn-gr prep/adv)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (%fast%-verb) (clb setn-gr prep/adv)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst setn-gr)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil (be-ent-mask/fem-subst) (setn-gr prep/adv)) (-2 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil (be-ent-mask/fem-subst) (setn-gr prep/adv)) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst setn-gr)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil (be-ent-mask/fem-subst) (setn-gr prep/adv)) (-2 nil (%fast%-verb) (be-ent-mask/fem-subst setn-gr)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil (be-ent-mask/fem-subst) (setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil nil (setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (setn-gr)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil nil (setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (setn-gr)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil (be-ent-mask/fem-subst) (setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil nil (setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil nil (setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb) (setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) (clb setn-gr prep/adv)) (-2 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (clb setn-gr prep/adv)) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (setn-gr)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (clb setn-gr prep/adv)) (-2 nil (%fast%-verb) (setn-gr)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil (be-ent-mask/fem-subst) (setn-gr prep/adv)) (-2 nil nil (be-ent-mask/fem-subst ikke-adv setn-gr)) (-1 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil (be-ent-mask/fem-subst) (setn-gr prep/adv)) (-2 nil (be-ent-mask/fem-subst) (be-ent-mask/fem-subst setn-gr)) (-1 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil (be-ent-mask/fem-subst) (setn-gr prep/adv)) (-2 nil nil (be-ent-mask/fem-subst setn-gr)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil (be-ent-mask/fem-subst) (setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr)) (-1 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil nil (setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (setn-gr)) (-1 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil nil (setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (setn-gr)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil (be-ent-mask/fem-subst) (setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil nil (be-ent-mask/fem-subst ikke-adv setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil nil (setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil nil (setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil nil (setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) (clb setn-gr prep/adv)) (-2 nil nil (be-ent-mask/fem-subst ikke-adv setn-gr)) (-2 t (%fast%-verb) nil) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (clb setn-gr prep/adv)) (-2 nil (be-ent-mask/fem-subst) (setn-gr)) (-2 t (%fast%-verb) nil) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (clb setn-gr prep/adv)) (-2 nil nil (setn-gr)) (-2 t (%fast%-verb) nil) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (setn-gr))))) ((-4 nil (be-ent-mask/fem-subst) nil) (or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((-4 t (%fast%-verb) nil) (or ((or ((or ((or ((or ((or ((or ((or ((-3 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))) ((-3 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv)) (-2 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-1 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (%fast%-verb setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-1 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (%fast%-verb setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-3 t nil (%fast%-verb)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv)) (-3 t nil (%fast%-verb)) (-2 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv)) (-3 t nil (%fast%-verb)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (%fast%-verb setn-gr) (clb be-ent-mask/fem-subst ikke-adv)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (%fast%-verb) (clb be-ent-mask/fem-subst ikke-adv)) (-2 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (%fast%-verb) (clb be-ent-mask/fem-subst ikke-adv)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-4 t (%fast%-verb) nil) (-3 nil (be-ent-mask/fem-subst setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-2 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil (be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv)) (-2 nil (%fast%-verb setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-4 t (%fast%-verb) nil) (-3 nil (be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv)) (-2 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv)) (-1 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-4 t (%fast%-verb) nil) (-3 nil (setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil nil (be-ent-mask/fem-subst ikke-adv)) (-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-4 t (%fast%-verb) nil) (-3 nil nil (be-ent-mask/fem-subst ikke-adv)) (-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv)) (-1 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-4 t (%fast%-verb) nil) (-3 nil (setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil nil (be-ent-mask/fem-subst ikke-adv)) (-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-4 t (%fast%-verb) nil) (-3 nil nil (be-ent-mask/fem-subst ikke-adv)) (-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) (clb be-ent-mask/fem-subst ikke-adv)) (-2 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (clb be-ent-mask/fem-subst ikke-adv)) (-2 nil (%fast%-verb setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil nil (clb be-ent-mask/fem-subst ikke-adv)) (-2 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-4 t (%fast%-verb) nil) (-3 nil (be-ent-mask/fem-subst setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-2 nil nil (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-1 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil (be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv)) (-2 nil (setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-1 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-4 t (%fast%-verb) nil) (-3 nil (be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv)) (-2 nil nil (be-ent-mask/fem-subst ikke-adv)) (-1 nil (%fast%-verb setn-gr) (be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-4 t (%fast%-verb) nil) (-3 nil (setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-1 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil nil (be-ent-mask/fem-subst ikke-adv)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-1 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-4 t (%fast%-verb) nil) (-3 nil nil (be-ent-mask/fem-subst ikke-adv)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv)) (-1 nil (%fast%-verb setn-gr) (be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-4 t (%fast%-verb) nil) (-3 nil (setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-3 t nil (%fast%-verb)) (-2 nil nil (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil nil (be-ent-mask/fem-subst ikke-adv)) (-3 t nil (%fast%-verb)) (-2 nil (setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-4 t (%fast%-verb) nil) (-3 nil nil (be-ent-mask/fem-subst ikke-adv)) (-3 t nil (%fast%-verb)) (-2 nil nil (be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) (be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) (clb be-ent-mask/fem-subst ikke-adv)) (-2 nil nil (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 t (%fast%-verb) nil) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (clb be-ent-mask/fem-subst ikke-adv)) (-2 nil (setn-gr) (be-ent-mask/fem-subst ikke-adv)) (-2 t (%fast%-verb) nil) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil nil (clb be-ent-mask/fem-subst ikke-adv)) (-2 nil nil (be-ent-mask/fem-subst ikke-adv)) (-2 t (%fast%-verb) nil) (-1 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) (be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-4 nil (be-ent-mask/fem-subst setn-gr) nil) (or ((or ((or ((or ((or ((or ((or ((or ((or ((-4 t (%fast%-verb) nil) (or ((or ((-3 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))) ((-3 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (%fast%-verb) (clb be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil (be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil nil (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil nil (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (clb be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil (be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 nil nil (be-ent-mask/fem-subst ikke-adv setn-gr)) (-1 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil nil (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr)) (-1 nil (%fast%-verb) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-4 t (%fast%-verb) nil) (-3 nil nil (be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil nil (be-ent-mask/fem-subst ikke-adv setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (clb be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 nil nil (be-ent-mask/fem-subst ikke-adv setn-gr)) (-2 t (%fast%-verb) nil) (-1 nil (%fast%-verb be-ent-mask/fem-subst) (be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-4 nil (%fast%-verb) (clb)) (or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((-3 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))) ((-3 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-1 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-1 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr prep/adv))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst)) (0 nil nil (prep/adv))))) ((-3 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-3 t (%fast%-verb) nil) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-3 t (%fast%-verb) nil) (-2 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-3 t (%fast%-verb) nil) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-3 t (%fast%-verb) nil) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst)) (-3 t (%fast%-verb) nil) (-2 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst)) (-3 t (%fast%-verb) nil) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (0 nil nil (prep/adv))))) ((-4 nil (%fast%-verb setn-gr) (clb)) (or ((or ((or ((or ((or ((-3 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr))))) ((-4 nil (%fast%-verb be-ent-mask/fem-subst) (clb)) (or ((or ((or ((or ((or ((-3 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-3 t (%fast%-verb) nil) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-1 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-3 t (%fast%-verb) nil) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-3 t (%fast%-verb) nil) (-2 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-3 t (%fast%-verb) nil) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-4 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) (clb)) (-3 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-3 t (%fast%-verb) nil) (or ((-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))) ((-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-4 nil (%fast%-verb) nil) (or ((or ((or ((or ((or ((or ((or ((or ((or ((-4 t (%fast%-verb) nil) (or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((or ((-3 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))) ((-3 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-2 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-1 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr prep/adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-2 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst)) (-1 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr prep/adv)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-2 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr prep/adv))))) ((-3 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst)) (0 nil nil (prep/adv))))) ((-3 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-1 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-1 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr prep/adv))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst)) (0 nil nil (prep/adv))))) ((-3 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-3 t nil (%fast%-verb)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-3 t nil (%fast%-verb)) (-2 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-3 t nil (%fast%-verb)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-3 t nil (%fast%-verb)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst)) (-3 t nil (%fast%-verb)) (-2 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst)) (-3 t nil (%fast%-verb)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (0 nil nil (prep/adv))))) ((-3 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst clb)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst clb)) (-2 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst clb)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst clb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst clb)) (-2 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst clb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst clb)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst clb)) (-2 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst clb)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst)) (0 nil nil (prep/adv))))) ((-4 nil (%fast%-verb setn-gr) nil) (or ((or ((or ((-4 t (%fast%-verb) nil) (or ((or ((or ((or ((or ((-3 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (or ((or ((or ((-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))) ((-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr))))) ((-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr))))) ((-3 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst clb setn-gr prep/adv)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst clb setn-gr prep/adv)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst clb setn-gr prep/adv)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst setn-gr)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst setn-gr))))) ((-4 nil (%fast%-verb be-ent-mask/fem-subst) nil) (or ((or ((or ((-4 t (%fast%-verb) nil) (or ((or ((or ((or ((or ((or ((or ((or ((-3 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))) ((-3 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-2 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-1 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-1 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-3 t nil (%fast%-verb)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-3 t nil (%fast%-verb)) (-2 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-3 t nil (%fast%-verb)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-3 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst clb be-ent-mask/fem-subst ikke-adv)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst clb be-ent-mask/fem-subst ikke-adv)) (-2 nil (setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst clb be-ent-mask/fem-subst ikke-adv)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst setn-gr) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv)) (0 nil nil (prep/adv))))) ((-4 nil (%fast%-verb be-ent-mask/fem-subst setn-gr) nil) (or ((-4 t (%fast%-verb) nil) (or ((or ((-3 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr)) (-1 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-3 t nil (%fast%-verb)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr)) (-2 t nil (%fast%-verb)) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr))))) ((-3 nil nil (%fast%-verb ikke-adv-adj-det-subst clb be-ent-mask/fem-subst ikke-adv setn-gr prep/adv)) (-2 nil nil (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr)) (-2 t (%fast%-verb) nil) (-1 nil (be-ent-mask/fem-subst) (%fast%-verb ikke-adv-adj-det-subst be-ent-mask/fem-subst ikke-adv setn-gr)))))))
                              


;;; EOF