diff --git a/blockchain/config.go b/blockchain/config.go
index eadccb1915..e8e37669ee 100644
--- a/blockchain/config.go
+++ b/blockchain/config.go
@@ -38,6 +38,7 @@ type (
 		BlobStoreDBPath            string           `yaml:"blobStoreDBPath"`
 		BlobStoreRetentionDays     uint32           `yaml:"blobStoreRetentionDays"`
 		HistoryIndexPath           string           `yaml:"historyIndexPath"`
+		HistoryBlockRetention      uint64           `yaml:"historyBlockRetention"`
 		ID                         uint32           `yaml:"id"`
 		EVMNetworkID               uint32           `yaml:"evmNetworkID"`
 		Address                    string           `yaml:"address"`
diff --git a/state/factory/statedb.go b/state/factory/statedb.go
index a8b509a6d7..8960d8b8da 100644
--- a/state/factory/statedb.go
+++ b/state/factory/statedb.go
@@ -259,10 +259,7 @@ func (sdb *stateDB) newWorkingSetWithErigonOutput(ctx context.Context, height ui
 	if err != nil {
 		return nil, err
 	}
-	ws.store = newStateDBWorkingSetStoreWithErigonOutput(
-		ws.store.(*stateDBWorkingSetStore),
-		e,
-	)
+	ws.store = newStateDBWorkingSetStoreWithErigonOutput(ws.store, e)
 	return ws, nil
 }
 
@@ -445,7 +442,11 @@ func (sdb *stateDB) PutBlock(ctx context.Context, blk *block.Block) error {
 			sdb.currentChainHeight, h,
 		)
 	}
-
+	if retention := sdb.cfg.Chain.HistoryBlockRetention; retention > 0 && h > retention {
+		if err := ws.PruneTo(h - retention); err != nil {
+			return err
+		}
+	}
 	if err := ws.Commit(ctx); err != nil {
 		return err
 	}
diff --git a/state/factory/workingset.go b/state/factory/workingset.go
index 7ce2515329..c2265438db 100644
--- a/state/factory/workingset.go
+++ b/state/factory/workingset.go
@@ -329,6 +329,13 @@ func (ws *workingSet) freshAccountConversion(ctx context.Context, actCtx *protoc
 	return nil
 }
 
+func (ws *workingSet) PruneTo(height uint64) error {
+	if p, ok := ws.store.(interface{ Prune(uint64, uint64) error }); ok {
+		return p.Prune(height, ws.height)
+	}
+	return nil
+}
+
 // Commit persists all changes in RunActions() into the DB
 func (ws *workingSet) Commit(ctx context.Context) error {
 	if err := protocolPreCommit(ctx, ws); err != nil {
diff --git a/state/factory/workingsetstore_history.go b/state/factory/workingsetstore_history.go
index 27a06698be..b91c38b702 100644
--- a/state/factory/workingsetstore_history.go
+++ b/state/factory/workingsetstore_history.go
@@ -10,8 +10,14 @@ import (
 	"github.com/holiman/uint256"
 	"github.com/iotexproject/go-pkgs/hash"
 	libcommon "github.com/ledgerwatch/erigon-lib/common"
+	"github.com/ledgerwatch/erigon-lib/common/datadir"
 	"github.com/ledgerwatch/erigon-lib/kv"
+	"github.com/ledgerwatch/erigon-lib/kv/temporal/historyv2"
 	erigonstate "github.com/ledgerwatch/erigon/core/state"
+	"github.com/ledgerwatch/erigon/eth/ethconfig"
+	"github.com/ledgerwatch/erigon/eth/stagedsync"
+	"github.com/ledgerwatch/erigon/eth/stagedsync/stages"
+	"github.com/ledgerwatch/erigon/ethdb/prune"
 	"github.com/pkg/errors"
 	"github.com/prometheus/client_golang/prometheus"
 	"go.uber.org/zap"
@@ -54,7 +60,7 @@ type writer interface {
 // it's used for PutBlock, generating historical states in erigon
 type stateDBWorkingSetStoreWithErigonOutput struct {
 	reader
-	store       *stateDBWorkingSetStore
+	store       workingSetStore
 	erigonStore *erigonStore
 	snMap       map[int]int
 }
@@ -70,7 +76,7 @@ func init() {
 	prometheus.MustRegister(perfMtc)
 }
 
-func newStateDBWorkingSetStoreWithErigonOutput(store *stateDBWorkingSetStore, erigonStore *erigonStore) *stateDBWorkingSetStoreWithErigonOutput {
+func newStateDBWorkingSetStoreWithErigonOutput(store workingSetStore, erigonStore *erigonStore) *stateDBWorkingSetStoreWithErigonOutput {
 	return &stateDBWorkingSetStoreWithErigonOutput{
 		reader:      store,
 		store:       store,
@@ -119,6 +125,10 @@ func (store *stateDBWorkingSetStoreWithErigonOutput) Delete(ns string, key []byt
 	return store.store.Delete(ns, key)
 }
 
+func (store *stateDBWorkingSetStoreWithErigonOutput) Prune(from, to uint64) error {
+	return store.erigonStore.prune(from, to)
+}
+
 func (store *stateDBWorkingSetStoreWithErigonOutput) Commit(ctx context.Context) error {
 	t1 := time.Now()
 	if err := store.store.Commit(ctx); err != nil {
@@ -200,6 +210,7 @@ func (store *erigonStore) finalize(ctx context.Context, height uint64, ts uint64
 
 func (store *erigonStore) commit(ctx context.Context) error {
 	defer store.tx.Rollback()
+
 	err := store.tx.Commit()
 	if err != nil {
 		return err
@@ -207,6 +218,38 @@ func (store *erigonStore) commit(ctx context.Context) error {
 	return nil
 }
 
+func (store *erigonStore) prune(from, to uint64) error {
+	if from >= to {
+		log.L().Panic("prune execution stage", zap.Uint64("from", from), zap.Uint64("to", to))
+	}
+	s := stagedsync.PruneState{ID: stages.Execution, ForwardProgress: to}
+	num := to - from
+	cfg := stagedsync.StageExecuteBlocksCfg(nil,
+		prune.Mode{
+			History:    prune.Distance(num),
+			Receipts:   prune.Distance(num),
+			CallTraces: prune.Distance(num),
+		},
+		0, nil, nil, nil, nil, nil, false, false, false, datadir.Dirs{}, nil, nil, nil, ethconfig.Sync{}, nil, nil)
+	err := stagedsync.PruneExecutionStage(&s, store.tx.(kv.RwTx), cfg, context.Background(), false)
+	if err != nil {
+		return errors.Wrapf(err, "failed to prune execution stage from %d to %d", from, to)
+	}
+	// debug
+	available, err := historyv2.AvailableFrom(store.tx)
+	if err != nil {
+		log.L().Error(" failed to get available from", zap.Error(err))
+	}
+	availableStorage, err := historyv2.AvailableStorageFrom(store.tx)
+	if err != nil {
+		log.L().Error(" failed to get available storage from", zap.Error(err))
+	}
+	if to%5000 == 0 {
+		log.L().Info("prune execution stage", zap.Uint64("from", from), zap.Uint64("to", to), zap.Uint64("available", available), zap.Uint64("availableStorage", availableStorage))
+	}
+	return nil
+}
+
 func (store *erigonStore) put(ns string, key []byte, value []byte) (err error) {
 	// only handling account, contract storage handled by evm adapter
 	// others are ignored