open Types

let f = File.file_open Sys.argv.(1);;
let s = File.to_stream f 0;;
let pages = Page.to_pageStream s;;
let sorted_pages = Page.to_streams pages;;

let rec print_sorted_pages l = match l with
  | (s,ps)::t ->
            (
              print_oogg32 s; print_string ": ";
              let p = Stream.peek ps in
              (match p with
                | Some p -> print_mediaType p.identity; print_newline ()
                | None -> print_newline ());
              print_sorted_pages t
            )
  | [] -> ();;

print_sorted_pages sorted_pages;;