diff --git a/ethchain/derive_sha.go b/ethchain/derive_sha.go
new file mode 100644
index 0000000000..b41252e39a
--- /dev/null
+++ b/ethchain/derive_sha.go
@@ -0,0 +1,20 @@
+package ethchain
+
+import (
+	"github.com/ethereum/go-ethereum/ethtrie"
+	"github.com/ethereum/go-ethereum/ethutil"
+)
+
+type DerivableList interface {
+	Len() int
+	GetRlp(i int) []byte
+}
+
+func DeriveSha(list DerivableList) []byte {
+	trie := ethtrie.New(ethutil.Config.Db, "")
+	for i := 0; i < list.Len(); i++ {
+		trie.Update(string(ethutil.NewValue(i).Encode()), string(list.GetRlp(i)))
+	}
+
+	return trie.GetRoot()
+}