lineNames :: Circuit -> [String]
lineNames circ = concatMap inputStrings $ inputs circ
  where inputStrings inp = map (\y -> inp ++ "[" ++ show y ++ "]") [0..circIntSize circ - 1]

-- | Groups a list of gates such that each group can be drawn without
-- overlap in the same column
lineNames :: Circuit -> [String]
lineNames circ = concatMap inputStrings $ inputs circ
  where inputStrings inp = map (\y -> inp ++ "[" ++ show y ++ "]") [0..circIntSize circ - 1]

-- | Groups a list of gates such that each group can be drawn without
-- overlap in the same column
lineNames circ = concatMap inputStrings $ inputs circ
  where inputStrings inp = map (\y -> inp ++ "[" ++ show y ++ "]") [0..circIntSize circ - 1]

-- | Groups a list of gates such that each group can be drawn without
-- overlap in the same column