let p f n=
let final=0 and
let sofar=0 and
let ls=0 and
let lf =0 in
5
;;