#! /usr/misc/bin/perl -s

while (<>) {
    chop;
    if (/^[a-z_]+/) {
	$production = $_;
    } elsif (/ +[:|] (.*)/) {
        printf("%s (%s)\n  puts(\"$production\");\n%%\n\n", $production, $1);
    }
}