module Main where

import Control.Monad
import Data.IORef
import Data.Array

readInput :: String -> (Int, Int)
readInput str = read $ "("++ str ++ ")"

main :: IO ()
main = do
    w <- read <$> getLine :: IO Int
    n <- read <$> getLine :: IO Int
    arr <- newIORef $ [1..w]
    forM_ [0..n] $ \i -> do 
        l <- getLine
        let (a, b) = readInput l
        return()
    

    return ()