procgen  beleidigung.scm at [92ed9358a3]

File beleidigung.scm artifact 7414b89676 part of check-in 92ed9358a3


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