javaPlexShow :: (Show a) => Bar a -> String
javaPlexShow (C l Infinity) = "[" ++ show l ++ ", infinity)"
javaPlexShow :: (Show a) => Bar a -> String
javaPlexShow (C l Infinity) = "[" ++ show l ++ ", infinity)"
javaPlexShow (C l Infinity) = "[" ++ show l ++ ", infinity)"