let f = File.file_open Sys.argv.(1);;
let g = File.file_open ~writable:true Sys.argv.(2);;
let s = File.to_stream f 0;;
let ps = Page.to_pageStream s;;

let streams = Page.to_streams ps;; 
let sorted_ps = Page.from_streams streams;;

let ostream = File.to_output_stream g 0;;
Page.write_pageStream ostream sorted_ps;;