muLValue :: (Identifier -> Expression -> Expression) -> JSCommaList JSExpression -> Expression
muLValue kind = compact . mapJSList f
  where f (JSVarInitExpression (JSIdentifier _ name) initial)  = kind name (muJSVarInitializer initial)
muLValue :: (Identifier -> Expression -> Expression) -> JSCommaList JSExpression -> Expression
muLValue kind = compact . mapJSList f
  where f (JSVarInitExpression (JSIdentifier _ name) initial)  = kind name (muJSVarInitializer initial)
muLValue kind = compact . mapJSList f
  where f (JSVarInitExpression (JSIdentifier _ name) initial)  = kind name (muJSVarInitializer initial)