let f = File.file_open Sys.argv.(1);;
let g = File.file_open ~writable:true Sys.argv.(2);;
let istream = File.to_stream f 0;;
let pstream = Page.to_pageStream istream;;
let packetstream = Packet.to_packetStream pstream;;
let newpstream = Packet.packetStream_to_pageStream packetstream;;
let ostream = File.to_output_stream g 0;;
Page.write_pageStream ostream newpstream;;