getAllCorners (BoundingBox l u) = T.sequence (liftI2 (\a b -> [a,b]) l u)
getAllCorners (BoundingBox l u) = T.sequence (liftI2 (\a b -> [a,b]) l u)
getAllCorners (BoundingBox l u) = T.sequence (liftI2 (\a b -> [a,b]) l u)