let f = File.file_open Sys.argv.(1);;
let s = File.to_stream f 0;;
let ps = Page.to_pageStream s;;
let pps = Packet.to_packetStream ps;;
let ppps = Packet.reconstruct_timing pps;;
let pppps = Packet.repair_splits ppps;;
Packet_util.print_packetStream pppps;;