--- a/modules/array.tp	Sat Aug 24 19:03:18 2013 -0700
+++ b/modules/array.tp	Sun Aug 25 14:44:43 2013 -0700
@@ -102,4 +102,18 @@
 		}
 		ret
 	}
+
+	join <- :sep {
+		if: length > 0 {
+			str <- get: 0
+			idx <- 1
+			l <- length
+			while: { idx < l } do: {
+				str <- str . sep . (get: idx)
+			}
+			str
+		} else: {
+			""
+		}
+	}
 }