Finished; looking good.
Mark
................................................................
yacc: (define <newline> { ((list string) * A) --> ((list string)
> (let Parse_X (head (fst Stream)) (let NewStream10900 (@p (tail
snd Stream)) (if (element? (string->n Parse_X) (cons 10 (cons 13
NewStream10900) (snd NewStream10900)) (abort))))) = <newline>
run time: 0.0 secs
passed
passed ... 500
failed ...0
pass rate ...100%
ok
0
run time: 14.678999900817871 secs
typechecked in 399497 inferences
loaded