xml/main.ml

   1 open Base
   2 let _ =
   3   let argv =
   4     Array.to_list Sys.argv in
   5     match argv with
   6       _::xs ->
   7         xs +> List.iter (print_endline       $
   8                            Xml.to_string_fmt $
   9                            Swfmill.to_xml    $
  10                            Abc.of_stream     $
  11                            Byte.of_channel   $
  12                            open_in_bin)
  13       | [] ->
  14           failwith "must not happen"