module Main where type Input = [Int] type Output = [String] parse :: String -> Input parse = map read . tail . lines solve :: Input -> Output solve = map conv conv :: Int -> String conv 1 = "10" conv n = show (9 * 10 ^ (n - 1)) render :: Output -> String render = unlines main :: IO () main = interact ( render . solve . parse )