diff --git a/src/uxnlin.tal b/src/uxnlin.tal
index 48655fc..c20be5d 100644
--- a/src/uxnlin.tal
+++ b/src/uxnlin.tal
@@ -382,6 +382,7 @@ JMP2r
 @tokenlen "Token-length $1 ( token is longer than 24 characters )
 @combine "Combine $1 ( sequences of two literal bytes )
 @uncalled "Uncalled $1 ( using JSR when could be calling )
+@optimize "Optimize $1 ( bad design )
 
 @inc "INC $1 @inc2 "INC2 $1
 @inc-twice "INC 20 "INC $1
@@ -456,7 +457,10 @@ JMP2r
 @|rules )
 
 @rules2
-
+	"STH   $1 "STH   $1 =optimize
+	"STH2   $1 "STH2   $1 =optimize
+	"STHr   $1 "STHr   $1 =optimize
+	"STH2r   $1 "STH2r   $1 =optimize
 	"STH   $1 "STHr   $1 =redundance
 	"STH2  $1 "STH2r  $1 =redundance
 	"STHr  $1 "STH    $1 =redundance