convertStmt (P.Bind lval expr) =
  let (convertedExpr, (stmts, _)) = runState (convertExpr expr) (id, 1)
      convertedLVal = convertLValue lval
  in stmts . \body -> E.Bind convertedExpr (E.Block Nothing convertedLVal body)
convertStmt (P.Bind lval expr) =
  let (convertedExpr, (stmts, _)) = runState (convertExpr expr) (id, 1)
      convertedLVal = convertLValue lval
  in stmts . \body -> E.Bind convertedExpr (E.Block Nothing convertedLVal body)
convertStmt (P.Bind lval expr) =
  let (convertedExpr, (stmts, _)) = runState (convertExpr expr) (id, 1)
      convertedLVal = convertLValue lval
  in stmts . \body -> E.Bind convertedExpr (E.Block Nothing convertedLVal body)