#!/bin/sh
"true" ; exec /opt/compling/tools/festival-1.4.2/festival/bin/festival --script $0 $*

(load (path-append libdir "init.scm"))

(require 'korean)

(define (fest-do-file infile outfile thing-to-do)
  (let ((infd (fopen infile "r"))
	(outfd (fopen outfile "w"))
	entry)
    (while (not (equal? (set! entry (readfp infd)) (eof-val)))
	   (thing-to-do entry outfd))
	(fclose outfd)
    (fclose infd)))


(define (prkorean thing outfd)
	(format outfd "%l\n" (korean_lts thing 'junk)))

(fest-do-file "sample.words" "sample.krlts" prkorean)