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