readInt :: IO [Int]
readInt = map read . words <$> getLine

readIntlines :: Int -> IO [[Int]]
readIntlines n = map (map read . words) <$> replicateM n getLine

main :: IO ()
main = do
    [n, m] <- readInt
    ab <- readIntlines m >>= (\xs -> return [(x, y) | [x,y] <- xs])
    return ()
