ADDED   beleidigung.scm
Index: beleidigung.scm
==================================================================
--- beleidigung.scm
+++ beleidigung.scm
@@ -0,0 +1,23 @@
+(include "lib/lisp-macro.scm")
+(include "lib/bot.scm")
+
+(bank modifier
+	  "dumm" "arsch" "stink" "kotz" "rotz" "schweine" "weich" "piss"
+	  "affen" "kack" "rosetten" "dreck" "rillen" "dammschweiß" "lumpen"
+	  "anal" "spalten")
+
+(bank noun
+	  "arsch" "kopf" "stiefel" "kotz" "brocken" "hund" "gesicht"
+	  "backe" "tüte" "trinker" "affe" "lecker" "tante" "scheißer"
+	  "kind" "wichser" "sack" "kopp" "akrobat" "fotze" "schnüffler"
+	  "kuh" "lutscher" "fresse" "vogel")
+
+(rule (modifier-phrase)
+	  ((modifier))
+	  ((modifier) (modifier-phrase)))
+
+(rule (insult)
+	  ((modifier-phrase) (noun)))
+
+(display (insult))
+(display "\n")