diff --git a/cli/stdlib/stdlib.tal b/cli/stdlib/stdlib.tal
index a50248a..3abd5c3 100644
--- a/cli/stdlib/stdlib.tal
+++ b/cli/stdlib/stdlib.tal
@@ -109,6 +109,23 @@
 	POP2 JMP2r
 
 @scmp ( a* b* -- f )
+	STH2
+	&l ( -- )
+		LDAk ?{
+			&d LDA LDAr STHr EQU JMP2r }
+		LDAk LDAkr STHr NEQ ?&d
+	INC2 INC2r !&l
+
+@scmp-fast ( a* b* -- f )
+	STH2
+	&l ( -- )
+		LDAk ?{
+			&d LDA LDAr STHr EQU JMP2r }
+		LDA2k LDA2kr STH2r NEQ2 ?{
+			INC2 INC2 INC2r INC2r !&l }
+	LDA2 LDA2r STH2r EQU2 JMP2r
+
+@scmp-old ( a* b* -- f )
 	STH2
 	&l ( -- )
 		LDAk LDAkr STHr ANDk #00 EQU ?&e