newLabel :: Multi key config Label -- create a new label
newLabel = do (r,bx,m) <- get
              put (r+1,bx,m)
              return r

-- | output some meta data
newLabel :: Multi key config Label
newLabel = do (r,bx,m) <- get
              put (r+1,bx,m)
              return r

-- | output some meta data
newLabel = do (r,bx,m) <- get
              put (r+1,bx,m)
              return r

-- | output some meta data