(* main.ml - Main entry point for mperl
 * 
 * This just takes an input from stdin and dumps to stdout
 *
 * Copyright (c) 2001 Brock Wilcox
 * Released under the terms of the GNU GPL
 * See copying.txt for details
 *)

let from_stdin () =
  let lexbuf = Lexing.from_channel stdin in
  let result = Parser.block Lexer.token lexbuf in
  print_string (Pnode.pp_string_program result);
  print_newline()

let _ = from_stdin ()