(define (Duration_Simple_Tree utt)
  "Duration_Simple_Tree utt)
predicts Segment durations with a simple CART tree (that returns
absolute times in seconds)."
  (let ((end 0))
    (mapcar
     (lambda (s)
       (let ((dur (wagon_predict s simple_duration_cart_tree)))
	 (set! dur (* (Parameter.get 'Duration_Stretch) dur))
;	 (format t "%s %f\n" (item.name s) dur)
	 (set! end (+ dur end))
	 (item.set_feat s "end" end)
	 ))
     (utt.relation.items utt 'Segment))
    utt))

(voice_ked_diphone)
(Parameter.set 'Duration_Method Duration_Simple_Tree)
(set! simple_duration_cart_tree 
      (car (load "/home/awb/data/kdt/dur.tree" t)))