(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" "reichs")

(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" "hitler")

(rule (modifier-phrase)
	  ((modifier))
	  ((modifier) (modifier-phrase)))

(rule (insult)
	  ((modifier-phrase) (noun)))

(display (insult))
(display "\n")
