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