1 let main() =
2 let lexbuf = Lexing.from_channel stdin in
3 if Array.length Sys.argv >= 2 && Sys.argv.(1) = "-html"
4 then Htmltransf.main lexbuf
5 else Transf.main lexbuf;
6 exit 0;;
7
8 Printexc.print main ();;
9