let () =
  let rec doit n =
    Printf.printf "%03d\n%!" n;
    let recv = read_line () in
    if recv = "unlocked" then ()
    else doit (n + 1) in
  doit 0