import Control.Monad
import System.IO

normalize = reverse . take 3 . reverse . ("00" ++)

main = main' (map (normalize . show) [0..999])
 where
  main' (p:ps) = do
   putStrLn p
   hFlush stdout
   ack <- getLine
   unless (ack == "unlocked") (main' ps)