diff --git a/strcmp.sl b/strcmp.sl
index 0626129..33a0cb9 100644
--- a/strcmp.sl
+++ b/strcmp.sl
@@ -1,7 +1,14 @@
 import stdlib/stdlib.sl
 import stdlib/io.sl
 
+: strcmp
+    3 pick 2 pick @ swap @ ==
+;
+
 : main
-    "gffl" drop @ "gffl" drop @ ==
+    "g" "g"
+    strcmp
     puti cr
+    puts
+    puts
 ;
\ No newline at end of file