let () = Scanf.scanf "%d" @@ fun x ->
  let cache = Array.make 5000 0 in
  cache.(0) <- 100;
  for i = 0 to 4998 do
    cache.(i + 1) <- cache.(i) + cache.(i) / 100
  done;
  Printf.printf "%d\n" @@
  List.find (fun i -> x <= cache.(i)) @@
  List.init 5000 Fun.id

