main :: IO ()
main = do intro
          putStrLn "Game definition:"
          putStrLn "What is the size of the board in boxes? (vertical horizontal)"
          size <- getLine
          let v = read (head $ words size) :: Int
          let h = read (last $ words size) :: Int
          let board = buildBoard v h
          let availables = buildAvailables v h
          player1 <- selectPlayer 1
          player2 <- selectPlayer 2
          putStrLn ""
          run 1 (player1,player2) board availables
main :: IO ()
main = do intro
          putStrLn "Game definition:"
          putStrLn "What is the size of the board in boxes? (vertical horizontal)"
          size <- getLine
          let v = read (head $ words size) :: Int
          let h = read (last $ words size) :: Int
          let board = buildBoard v h
          let availables = buildAvailables v h
          player1 <- selectPlayer 1
          player2 <- selectPlayer 2
          putStrLn ""
          run 1 (player1,player2) board availables
main = do intro
          putStrLn "Game definition:"
          putStrLn "What is the size of the board in boxes? (vertical horizontal)"
          size <- getLine
          let v = read (head $ words size) :: Int
          let h = read (last $ words size) :: Int
          let board = buildBoard v h
          let availables = buildAvailables v h
          player1 <- selectPlayer 1
          player2 <- selectPlayer 2
          putStrLn ""
          run 1 (player1,player2) board availables