1module Main where
2
3import Data.List.Split
4import Lib
5
6main :: IO ()
7main = do
8 inputStr <- readFile "input.txt"
9 let input = splitOn "\n" $ init inputStr
10 connections = parsePipes input
11 -- group0 = getGroup 0 connections
12 totalGroups = countGroups connections
13 in print totalGroups