diff --git a/common/substitute.tf b/common/substitute.tf
index 1b56e02..d4a9637 100644
--- a/common/substitute.tf
+++ b/common/substitute.tf
@@ -25,3 +25,6 @@
     /test ++_il_wr%; \
     /shift%; \
   /done
+
+/def -mregexp -Fp2 -t' (polegl(a|o|)|umarl(a|o|))\\.' _zgon = \
+  /echo -p @{C%c_alarm}>>>>>>****** ZGON ******<<<<<<@{n}