mport Control.Monad                                                                                          |ABC109/kappahouse/b.hs:6:    w <- forM [1..n] $ \i -> getLine
import Data.List                                                                                              |GCJ12QUAL/kappahouse/a.hs:5:main = getLine >>= \n -> forM_ [1..read n] $ \c ->
                                                                                                              |GCJ12QUAL/kappahouse/b.hs:6:    forM_ [1..read n] $ \c -> do
main = do                                                                                                     |GCJ12QUAL/kappahouse/b_failed.hs:6:    forM_ [1..read n] $ \c -> do
    n <- read <$> getLine                                                                                     |GCJ12QUAL/kappahouse/b_failed2.hs:6:    forM_ [1..read n] $ \c -> do
    a <- fmap read <$> words <$> getLine                                                                      |GCJ19QUAL/kappahouse/a.hs:5:    forM_ [1..read cases] $ \c -> do
    putStrLn $ show $ solve n a                                                                               |GCJ19QUAL/kappahouse/b.hs:6:    forM_ [1..read cases] $ \c -> do
                                                                                                              |GCJ19QUAL/kappahouse/b_clean.hs:5:    forM_ [1 .. cases] $ \c -> do
solve :: Int -> [Int] -> Int                                                                                  |GCJ19QUAL/kappahouse/b_notdirty.hs:8:    forM_ [1..read cases] $ \c -> do
solve n a = foldl1' gcd a   