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