compactShow :: (Show a) => Bar a -> String
compactShow (C l1 (Regular u1)) = show l1 ++ " " ++ show u1
compactShow :: (Show a) => Bar a -> String
compactShow (C l1 (Regular u1)) = show l1 ++ " " ++ show u1
compactShow (C l1 (Regular u1)) = show l1 ++ " " ++ show u1