1 files changed, 21 insertions, 0 deletions
diff --git a/stdlib.rip b/stdlib.rip
index 432a9cf..56bacc6 100644
--- a/stdlib.rip
+++ b/stdlib.rip
@@ -40,6 +40,21 @@ F<mkstr>[
 	P
 ]
 
+0I[compares two strings; 0 = equal, >0, <0 = second string is greater, less than first; destructive]
+F<strcmp>[
+	0 3r
+	<dup2>mW[
+		D28pM 3R D28pM S 4r S s
+		DI[
+			4rPPP00
+			0  0I[to counter the P after the if]
+		]
+		P
+		28pqS28pqS
+	<dup2>m]
+	PP
+]
+
 
 0I[initialises variable store at beginning of stack (no args) (CALL ONLY ONCE)]
 F<varinit>[
@@ -152,3 +167,9 @@ F<strsend>[
 	<strrev>
 	DW[D28pM3RSwS28pqD]P
 ]
+
+
+0I[A B -> A B A B]
+F<dup2>[
+	SD3RD3r
+]