main :: IO ()
main = do
    mapM_ (putStrLn . show) orL
    where orL = [2 ^^ (-i) | i <- [1..1023]]