diff --git a/src/refdebug.py b/src/refdebug.py
new file mode 100644
index 0000000000000000000000000000000000000000..5ce8793be3c9f2be36508e0cd7876adba2cdbf21
--- /dev/null
+++ b/src/refdebug.py
@@ -0,0 +1,84 @@
+class RefDebugQuit(Exception):
+    pass
+
+def refdebug(obj, top_level=True, exclude=[]):
+    from types import FrameType
+
+    def is_excluded(o):
+        for ex in exclude:
+            if o is ex:
+                return True
+
+        from sys import _getframe
+        if isinstance(o, FrameType) and \
+                o.f_code.co_filename == _getframe().f_code.co_filename:
+            return True
+
+        return False
+
+    if top_level:
+        try:
+            refdebug(obj, top_level=False, exclude=exclude)
+        except RefDebugQuit:
+            pass
+    else:
+        import gc
+        print_head = True
+        print "-------------->"
+        try:
+            reflist = [x for x in gc.get_referrers(obj)
+                    if not is_excluded(x)]
+
+            idx = 0
+            while True:
+                if print_head:
+                    print "referring to", id(obj), type(obj), obj
+                    print "----------------------"
+                    print_head = False
+                r = reflist[idx]
+
+                if isinstance(r, FrameType):
+                    s = str(r.f_code)
+                else:
+                    s = str(r)
+
+                print "%d/%d: " % (idx, len(reflist)), id(r), type(r), s
+
+                if isinstance(r, dict):
+                    for k, v in r.iteritems():
+                        if v is obj:
+                            print "...referred to from key", k
+
+                print "[d]ig, [n]ext, [p]rev, [e]val, [r]eturn, [q]uit?"
+
+                response = raw_input()
+
+                if response =="d":
+                    refdebug(r, top_level=False, exclude=exclude+[reflist])
+                    print_head = True
+                elif response == "n":
+                    if idx + 1 < len(reflist):
+                        idx += 1
+                elif response == "p":
+                    if idx - 1 >= 0:
+                        idx -= 1
+                elif response == "e":
+                    print "type expression, obj is your object:"
+                    expr_str = raw_input()
+                    try:
+                        res = eval(expr_str, {"obj": r})
+                    except:
+                        from traceback import print_exc
+                        print_exc()
+                    print res
+                elif response == "r":
+                    return
+                elif response == "q":
+                    raise RefDebugQuit()
+                else:
+                    print "WHAT YOU SAY!!! (invalid choice)"
+
+        finally:
+            print "<--------------"
+
+