#!/usr/local/bin/perl

open(TD, "small-basic.td") or die $!;
while ($line = <TD>) {
    $line =~ s/[\r\n]*$//;
    ($tag, $chin, $eng, $prob) = split(/\s\#\s/, $line);

#    next if ($chin eq $prev);
#    $prev = $chin;

    @cwords = split(/\s/, $chin);
    @ewords = split(/\s/, $eng);

    print "PHR::PHR |: [$chin] -> [\"$eng\"]
(
(x1::y1)
((x0 form) = \"$chin\")

((y0 form) = \"$eng\")
)

";

}