setDynamicExpr :: Parser Expression
setDynamicExpr = do
  keyWord "setdynamic"
  assign <- assignment
  keyWord "during"
  body <- expression
  return $ uncurry SetDynamicExpr assign body

-- | RefExpr ::= ref Identifier
setDynamicExpr :: Parser Expression
setDynamicExpr = do
  keyWord "setdynamic"
  assign <- assignment
  keyWord "during"
  body <- expression
  return $ uncurry SetDynamicExpr assign body

-- | RefExpr ::= ref Identifier
setDynamicExpr = do
  keyWord "setdynamic"
  assign <- assignment
  keyWord "during"
  body <- expression
  return $ uncurry SetDynamicExpr assign body

-- | RefExpr ::= ref Identifier