(in-package :tsdb)

(load "generation.lisp")

(setf *feature-grandparenting* 3)

(setf *feature-use-preterminal-types-p* t)

(setf *feature-lexicalization-p* nil)

(setf *feature-constituent-weight* nil)

(setf *feature-active-edges-p* nil)

(setf *feature-ngram-size* 3)

(setf *feature-ngram-tag* :type)

(setf *feature-ngram-back-off-p* t)

(setf *feature-frequency-threshold* (make-counts :relevant 5))

(setf *feature-random-sample-size* nil)

(setf *feature-item-enhancers* (list 'lm-item-enhancer))

(setf *feature-lm-p* 10)

(setf *feature-preference-weightings*
  '((0 :binary) (1 :bleu) (2 :wa) (3 :waft)))

(setf %redwoods-items-increment% #-:64bit 100 #+:64bit 200)

(setf %redwoods-items-percentile% 20)

(setf *maxent-relative-tolerance* 1e-6)

(setf *maxent-variance* 1e-4)

(train "jhpstg.g" "jhpstg.g.mem" :fcp nil)