let f = File.file_open Sys.argv.(1);;
let s = File.to_stream f 0;;
let ps = Page.to_pageStream s;;
Page_util.print_pageStream ps;;