open System [] let main args = let mutable num = 0 printfn "%03d" num while Console.ReadLine() = "locked" do num <- num+1 printfn "%03d" num done 0