module _25

let digitCount (d:bigint) =
    (string d).Length
  
let find1000 =
    common.fibinoci 
        |> Seq.findIndex (fun f -> digitCount f = 1000) 
        |> (+) 1