--- a/modules/dict.tp	Sun Jul 22 14:18:34 2012 -0700
+++ b/modules/dict.tp	Mon Jul 23 01:07:52 2012 -0700
@@ -42,6 +42,12 @@
 					(els get: idx) val
 				}
 			}
+			
+			foreach <- :l {
+				foreach: els :idx el {
+					l: (el k) (el v)
+				}
+			}
 		}
 	}