let rec output i = if i > 999 then output 0 else let judge = read_line () in if judge = "locked" then (Printf.printf "%03d" i; print_newline (); output (i+1)) else exit 0 let () = Printf.printf "000"; print_newline (); output 1