-- yukicoder My Practice -- author: Leonardone @ NEETSDKASU import System.IO import Text.Printf main = f 0 "" where f _ "unlocked" = return () f n _ = printf "%03d\n" (n::Int) >> hFlush stdout >> getLine >>= f (n + 1)