(*******************************************

  TIB86_test.mly
  Test TI-86 Basic lexer and parser
  Copyright (C) 2000 Brock Wilcox
  Released under the terms of the GNU GPL
  See www.gnu.org for details

  -----------------------------------------

  HISTORY
  2000.11.14.08.23
   - Created

 ******************************************)

let _ =
  try
    let lexbuf = Lexing.from_channel stdin in
    while true do
      let result = TIB86_parser.main TIB86_lexer.token lexbuf in
        print_newline(); flush stdout
    done
  with TIB86_lexer.EOF ->
    exit 0


(* End of TIB86_lexer.mll *)