diff --git a/lib/modules/Debug.pmod/werror.pmod b/lib/modules/Debug.pmod/werror.pmod
new file mode 100644
index 0000000000000000000000000000000000000000..a36d6ca90e4bbdc73278e7f92bd9215e275e52f3
--- /dev/null
+++ b/lib/modules/Debug.pmod/werror.pmod
@@ -0,0 +1,12 @@
+function(:int(0..0)) `[](string print_what)
+{
+   if (print_what=="") print_what="bipp\n";
+   else if (print_what[-1]!="\n") print_what+="\n";
+   return lambda() { werror(print_what); return 0; };
+}
+
+int(0..0) `()()
+{
+   werror("blipp\n");
+   return 0;
+}