offsetToLabel' :: Offset -> Label -> InstrM Int
offsetToLabel' (Offset offset) label = do
  Offset labelOffset <- lookupLabel label
  debug $
    liftIO $ print ("offsetToLabel'", label, labelOffset,
                    offset, labelOffset - offset)
  return $ labelOffset - offset
offsetToLabel' :: Offset -> Label -> InstrM Int
offsetToLabel' (Offset offset) label = do
  Offset labelOffset <- lookupLabel label
  debug $
    liftIO $ print ("offsetToLabel'", label, labelOffset,
                    offset, labelOffset - offset)
  return $ labelOffset - offset
offsetToLabel' (Offset offset) label = do
  Offset labelOffset <- lookupLabel label
  debug $
    liftIO $ print ("offsetToLabel'", label, labelOffset,
                    offset, labelOffset - offset)
  return $ labelOffset - offset