getWireSize :: FilePath -> IO Int
getWireSize file = do
    bs <- BL.readFile file
    let Just tc = decode bs :: Maybe Test
    let len = sum $ map toT $ cases tc
    return len
  where
    toT (Case _ w _ _) = BS.length w `div` 2
getWireSize :: FilePath -> IO Int
getWireSize file = do
    bs <- BL.readFile file
    let Just tc = decode bs :: Maybe Test
    let len = sum $ map toT $ cases tc
    return len
  where
    toT (Case _ w _ _) = BS.length w `div` 2
getWireSize file = do
    bs <- BL.readFile file
    let Just tc = decode bs :: Maybe Test
    let len = sum $ map toT $ cases tc
    return len
  where
    toT (Case _ w _ _) = BS.length w `div` 2