tag :: String -> Dimensions -> TaggedDimensions
tag name (D t r b l) = (name, t, r, b, l)
tag :: String -> Dimensions -> TaggedDimensions
tag name (D t r b l) = (name, t, r, b, l)
tag name (D t r b l) = (name, t, r, b, l)