#!/usr/bin/perl
# parse language described in mt.output
# Perl source code automatically generated at Wed Apr 22 12:09:35 1998 by
# py v.0.1 25 Aug 1995
# Source code copyright 1995 M-J. Dominus (mjd@pobox.com)
#

require 'py-skel.pl';
require 'mt-rules.pl';

$; = "\034";
%act = (
"0\$default",	'reduce 1',
"0a",	'goto 3',
"0B",	'shift 1',
"1\$default",	'reduce 1',
"1a",	'goto 2',
"1B",	'shift 1',
"2\$default",	'reduce 2',
"3End_of_Input",	'goto 4',
"4End_of_Input",	'goto 5',
"5\$default",	'accept',
);

@length = (0, 0, 2, );

@rhs = ('', 'a', 'a', );

@rule = (
  '',
  'a ->		/* empty */',
  'a -> B a',
);