import Data.List main :: IO () main = interact $ unlines . map show . sort . solve . map (read :: String -> Int) . words solve :: [Int] -> [Int] solve [n] = [(2^x)*(5^y) | x <- [0..n], y <- [0..n]]