let rec cookie n cok keep i = if cok >= n then i else let cok2 = cok * 2 in if cok2 > n then cookie n (cok - 1) (keep + 1) i else cookie n (keep + cok2) 0 (i+1) let () = print_int @@ (Scanf.sscanf (read_line ()) "%d" cookie) 1 0 0