Added compiled version of list_pop_final

kernel/modelverse_kernel/compiled.py

@@ -217,3 +217,11 @@ def set_overlap(a, b, **remainder):
     yield [("CD", [res, value, res]) for value in result]
 
     raise PrimitiveFinished(res)
+
+def list_pop_final(a, **remainder):
+    lst, = yield [("RO", [a])]
+    length = len(lst)
+    result, result_edge = yield [("RD", [a, length - 1]),
+                                 ("RDE", [a, length -1])]
+    _, = yield [("DE", [result_edge])]
+    raise PrimitiveFinished(result)