main1 :: IO ()
main1 = traverse_ TIO.putStrLn . ((\inputString -> mconcat $ (\text -> T.drop 1 text <> T.take 1 text) <$> T.chunksOf 2 (T.pack inputString))<$>) =<< ((`replicateM` getLine) =<< read @Int<$> getLine)