#!/usr/bin/perl 

# Usage: accepts one or more words to be transcribed

$filename = 'english_rules';

use Ling::RuleEng;

$r = new Ling::RuleEng $filename;


while($input = <>) {
	chop($input);

	foreach $i (split(' ',$input)) {
		$output = ($r->trans($i));

		print "Input:  $i\n";
		print "Output: $output\n";
	}
}
