(deftemplate piesa
		(slot act)
		(slot scena)
)

(deftemplate personaj
        (slot prenume)
        (slot nume)
        (slot rol)
        (slot emotie)
        (slot actiune)
        (slot replica)
)

(deftemplate relatie
		(slot tip)
		(slot prenume_unu)
		(slot nume_unu)
		(slot prenume_doi)
		(slot nume_doi)
)

(deftemplate scrisoarea
		(slot act)
		(slot scena)
		(slot personaj)
		(slot locatie)
)

(deftemplate caracterizare
		(slot prenume)
		(slot nume)
		(multislot defecte)
)

(deffacts univers
	(piesa (act 0) (scena 0))
)

(deffacts personaje

)

(defrule ACT_I_SCENA_I_inceput
	(piesa (act 0) (scena 0))
	=>
	(assert (relatie (tip subordonare) (prenume_unu Stefan) (nume_unu Tipatescu) (prenume_doi Ghita) (nume_doi Pristanda)))
	(assert (personaj (prenume Stefan) (nume Tipatescu) (rol prefectul_judetului) (emotie putin_agitat) (actiune se_plimba_cu_ziarul)))
	(assert (personaj (prenume Ghita) (nume Pristanda) (rol politaiul_orasului) (actiune sta_rezemat_in_sabie)))
	(printout t "Act I Scena I" crlf)
)

(defrule ACT_I_SCENA_I_2
	(piesa (act 0) (scena 0))
	?s<-(personaj (prenume Stefan) (nume Tipatescu) (actiune se_plimba_cu_ziarul))
	?g<-(personaj (prenume Ghita) (nume Pristanda) (actiune sta_rezemat_in_sabie))
	=>
	(retract ?s)
	(retract ?g)
	(assert (personaj (prenume Stefan) (nume Tipatescu) (rol prefectul_judetului) (emotie dezacord) (replica "Eu~sug~sangele~poporului!")))
	(assert (personaj (prenume Ghita) (nume Pristanda) (rol politaiul_orasului) (emotie subordonare) (replica "Curat~murdar!")))
	(printout t "'Eu sug sangele poporului!' - Stefan Tipatescu" crlf)
	(printout t "'Curat murdar!' - Ghita Pristanda" crlf)
)

(defrule ACT_I_SCENA_I_3
	(piesa (act 0) (scena 0))
	?s<-(personaj (prenume Stefan) (nume Tipatescu) (emotie dezacord))
	?g<-(personaj (prenume Ghita) (nume Pristanda) (emotie subordonare))
	=>
	(retract ?s)
	(retract ?g)
	(assert (personaj (prenume Ghita) (nume Pristanda) (rol politaiul_orasului) (emotie lamentare) (replica "Famelie~mare~renumeratie~mica")))
	(assert (personaj (prenume Stefan) (nume Tipatescu) (rol prefectul_judetului) (emotie plictiseala) (replica "Dupa~buget!")))
	(assert (caracterizare (prenume Ghita) (nume Pristanda) (defecte lingusitor)))
	(printout t "'Famelie mare, renumeratie mica!' - Ghita Pristanda" crlf)
	(printout t "'Dupa buget!' - Stefan Tipatescu" crlf)
)

(defrule ACT_I_SCENA_I_4
	(piesa (act 0) (scena 0))
	?a<-(personaj (prenume Stefan) (nume Tipatescu) (emotie plictiseala))
	?b<-(personaj (prenume Ghita) (nume Pristanda) (emotie lamentare))
	?c<-(caracterizare (prenume Ghita) (nume Pristanda) (defecte ?d))
	=>
	(retract ?a)
	(retract ?b)
	(assert (personaj (prenume Stefan) (nume Tipatescu) (rol prefectul_judetului) (emotie siretenie) (replica "S-au~pus~44~de~steaguri?")))
	(assert (personaj (prenume Ghita) (nume Pristanda) (rol politaiul_orasului) (emotie minciuna) (replica "Patruzeci~si~patru~in~cap!")))
	(assert (caracterizare (prenume Ghita) (nume Pristanda) (defecte ?d lenes)))
	(retract ?c)
	(printout t "'S-au pus 44 de steaguri?' - Stefan Tipatescu" crlf)
	(printout t "'Patruzeci si patru in cap!' - Ghita Pristanda" crlf)
)

(defrule ACT_I_SCENA_I_5
	(piesa (act 0) (scena 0))
	?a<-(personaj (prenume Stefan) (nume Tipatescu) (emotie siretenie))
	?b<-(personaj (prenume Ghita) (nume Pristanda))
	=>
	(retract ?a)
	(retract ?b)
	(assert (personaj (prenume Stefan) (nume Tipatescu) (rol prefectul_judetului) (emotie grabit) (replica "Sa-mi~afli~ce~scrisoare~e~aia!")))
	(printout t "'Ce-mi ordonati coane Fanica?' - Ghita Pristanda" crlf)
	(printout t "'Sa-mi afli ce scrisoare e aia!' - Stefan Tipatescu" crlf)
)

(defrule INCHEIERE_ACT_I_SCENA_I_2
	?a<-(personaj (prenume Stefan) (nume Tipatescu) (emotie grabit) (replica "Sa-mi~afli~ce~scrisoare~e~aia!"))
	?p<-(piesa (act 0) (scena 0))
	=>
	(retract ?a)
	(retract ?p)
	(assert (piesa (act I) (scena I)))
	(assert (personaj (prenume Ghita) (nume Pristanda) (rol politaiul_orasului) (emotie subordonat) (replica "Ce-mi~ordonati~coane~Fanica?")))

	(assert (scrisoarea (act I) (scena I) (personaj Catavencu) (locatie prtofelul_lui_Catavencu)))
	(assert (relatie (tip dusmanie) (prenume_unu Stefan) (nume_unu Tipatescu) (prenume_doi Nae) (nume_doi Catavencu)))
	(assert (relatie (tip sabotaj) (prenume_unu Stefan) (nume_unu Tipatescu) (prenume_doi Nae) (nume_doi Catavencu)))
)

(defrule ACT_I_SCENA_II
	?s<-(piesa (act I) (scena I))
	?b<-(personaj (prenume Ghita) (nume Pristanda))
	=>
	(retract ?s)
	(retract ?b)
	(assert (piesa (act I) (scena II)))
	(assert (personaj (prenume Ghita) (nume Pristanda) (rol politaiul_orasului) (emotie subordonat) (replica "Trai,neneaco,cu~banii~lui~Trahanache")))
	(assert (caracterizare (prenume Zaharia) (nume Trahanache) (defecte incornorat)))
	(printout t "ACT I SCENA II" crlf)
	(printout t "'Trai, neneaco, cu banii lui Trahanache!' - Ghita Pristanda" crlf)
)

(defrule ACT_I_SCENA_III
	?s<-(piesa (act I) (scena II))
	?r<-(personaj (nume Pristanda))
	=>
	(retract ?s)
	(assert (piesa (act I) (scena III)))
	(retract ?r)
	(assert (personaj (prenume Zaharia) (nume Trahanache) (rol prezidentul_multor_comitete) (emotie calm) (replica "Ai~putintica~rabdare!~Sa~nu~stie~Joitica!")))
	(printout t "ACT I SCENA III!" crlf)
	(printout t "'Ai putintica rabdare! Sa nu stie Joitica!' - Zaharia Trahanache" crlf)
)

(defrule ACT_I_SCENA_IV
	?s<-(piesa (act I) (scena III))
	?r<-(personaj (nume Trahanache))
	=>
	(retract ?s)
	(assert (piesa (act I) (scena IV)))
	(retract ?r)
	(assert (personaj (prenume Zaharia) (nume Trahanache) (rol prezidentul_multor_comitete) (emotie amuzat) (replica "Scrisoare-de-amor-in-toata-regula!")))
	(assert (scrisoarea (act I) (scena IV) (personaj Zaharia_Trahanache) (locatie in_buzunarul_lui_Trahanache)))
	(assert (caracterizare (prenume Nae) (nume Catavencu) (defecte infam canalie)))
	(printout t "ACT I SCENA IV!" crlf)
	(printout t "'Scrisoare de amor in toata regula!' - Zaharia Trahanache" crlf)
)

(defrule ACT_I_SCENA_V
	?s<-(piesa (act I) (scena IV))
	?r<-(personaj (nume Trahanache))
	=>
	(retract ?s)
	(assert (piesa (act I) (scena V)))
	(retract ?r)

	(assert (personaj (prenume Zoe) (nume Trahanache) (rol cocheta_adulterina) (emotie disperare) (replica "Lupta-este-desperata!-Vrea-sa-ne-omoare,-trebuie-sa-l-omoram")))
	(assert (caracterizare (prenume Zoe) (nume Trahanache) (defecte adulterina mincinoasa)))

	(assert (relatie (tip mariaj) (prenume_unu Zoe) (nume_unu Trahanache) (prenume_doi Zaharia) (nume_doi Trahanache)))
	(assert (relatie (tip adulter) (prenume_unu Zoe) (nume_unu Trahanache) (prenume_doi Stefan) (nume_doi Tipatescu)))

	(printout t "ACT I SCENA V!" crlf)
	(printout t "'Lupta este desperata! Vrea sa ne omoare, trebuie sa-l omoram!' - Zoe Trahanache" crlf)
)

(defrule ACT_I_SCENA_VI
	?s<-(piesa (act I) (scena V))
	?r<-(personaj (nume Trahanache))
	=>
	(retract ?s)
	(assert (piesa (act I) (scena VI)))
	(retract ?r)
	(assert (personaj (prenume Iordache) (nume Branzovenescu) (rol membrul_multor_comitete) (emotie banuiala) (replica "Douasprezece-trecute-fix")))
	(printout t "ACT I SCENA VI!" crlf)
	(printout t "'Douasprezece trecute fix!' - Iordache Branzovenescu" crlf)
)
(defrule ACT_I_SCENA_VII
	?s<-(piesa (act I) (scena VI))
	?r<-(personaj (nume Branzovenescu))
	=>
	(retract ?s)
	(assert (piesa (act I) (scena VII)))
	(retract ?r)
	(assert (personaj (rol cetateanul_turmentat) (emotie ameteala) (replica "Eu pentru cine votez?")))
	(printout t "ACT I SCENA VII!" crlf)
	(printout t "'Eu pentru cine votez?' - Cetateanul Turmentat" crlf)
)

(defrule ACT_I_SCENA_VIII
	?s<-(piesa (act I) (scena VII))
	?r<-(personaj (rol cetateanul_turmentat))
	=>
	(retract ?s)
	(assert (piesa (act I) (scena VIII)))
	(retract ?r)
	(assert (personaj (rol cetateanul_turmentat) (emotie ameteala) (replica "Nu~ma-mpinge~c-ametesc!")))
	(printout t "ACT I SCENA VIII!" crlf)
	(printout t "'Nu ma-mpinge c-ametesc!' - Cetateanul Turmentat" crlf)
)

(defrule ACT_I_SCENA_IX
	?s<-(piesa (act I) (scena VIII))
	?r<-(personaj (rol cetateanul_turmentat))
	=>
	(retract ?s)
	(assert (piesa (act I) (scena IX)))
	(retract ?r)
	(assert (personaj (prenume Zaharia) (nume Trahanache) (rol prezidentul_multor_comitete) (emotie amuzat) (replica "Ce-plastograf!")))
	(printout t "ACT I SCENA IX!" crlf)
	(printout t "'Ce plastograf!' - Zaharia Trahanache" crlf)
)

(defrule ACT_II_SCENA_I
	?p<-(piesa (act I) (scena IX))
	?a<-(personaj (nume Trahanache))

	=>
	(retract ?p)
	(assert (piesa (act II) (scena I)))

	(retract ?a)

	(assert (personaj (prenume Tache) (nume Farfuridi) (emotie nemultumire) (replica "Ma~tem~de~tradare...")))
	(assert (personaj (prenume Iordache) (nume Branzovenescu) (emotie nemultumire) (replica "Pentru~cine~votam?")))
	(assert (personaj (prenume Zaharia) (nume Trahanache) (emotie indignare) (replica "Aveti~putintica~rabdare!")))

    (assert (relatie (tip prietenie) (prenume_unu Stefan) (nume_unu Tipatescu) (prenume_doi Zaharia) (nume_doi Trahanache)))
	(assert (relatie (tip disputa) (prenume_unu Tache) (nume_unu Farfuridi) (prenume_doi Zaharia) (nume_doi Trahanache)))
	(assert (relatie (tip disputa) (prenume_unu Iordache) (nume_unu Branzovenescu) (prenume_doi Zaharia) (nume_doi Trahanache)))
	)

(defrule ACT_II_SCENA_II
	?p<-(piesa (act II) (scena I))
	?a<-(personaj (prenume Tache) (nume Farfuridi) (emotie nemultumire) )
	?b<-(personaj (prenume Iordache) (nume Branzovenescu) (emotie nemultumire) )
	?c<-(personaj (prenume Zaharia) (nume Trahanache) (emotie indignare))

	=>
	(retract ?p)
	(assert (piesa (act II) (scena II)))

	(retract ?a)
	(retract ?b)
	(retract ?c)

	(assert (personaj (prenume Tache) (nume Farfuridi) (emotie revolta) (replica "Batem~o~depesa~la~Bucuresti!")))
	(assert (personaj (prenume Iordache) (nume Branzovenescu) (emotie frica) (replica "E~prea~tare!~Eu~nu~semnez!")))


	(assert (relatie (tip suspiciune) (prenume_unu Tache) (nume_unu Farfuridi)(prenume_doi Stefan) (nume_doi Tipatescu)))
	(assert (relatie (tip suspiciune) (prenume_unu Iordache) (nume_unu Branzovenescu) (prenume_doi Stefan) (nume_doi Tipatescu)))

	(assert (caracterizare (prenume Tache) (nume Farfuridi) (defecte tradator)))
	(assert (caracterizare (prenume Iordache) (nume Branzovenescu) (defecte las)))

)

(defrule ACT_II_SCENA_III
	?p<-(piesa (act II) (scena II))
	?a<-(personaj (prenume Tache) (nume Farfuridi) (emotie revolta) )
	?b<-(personaj (prenume Iordache) (nume Branzovenescu) (emotie frica) )

	=>
	(retract ?p)
	(assert (piesa (act II) (scena III)))

	(retract ?a)
	(retract ?b)

	(assert (personaj (prenume Nae) (nume Catavencu) (emotie revolta) (replica "Asta~e~violare~de~domiciliu!")))
	(assert (personaj (prenume Ghita) (nume Pristanda) (emotie furie) (replica "Curat~violare~de~domiciliu!~Da'~umflati-l!")))

	(assert (relatie (tip conflict) (prenume_unu Nae) (nume_unu Catavencu)(prenume_doi Ghita) (nume_doi Pristanda)))
	(assert (caracterizare (prenume Ghita) (nume Pristanda) (defecte violent)))

	(printout t "Act II Scena III" crlf)
	(printout t "'Asta e violare de domiciliu!' - Nae Catavencu" crlf)
	(printout t "'Curat violare de domiciliu! Da' umflati-l!' - Ghita Pristanda" crlf)
)

(defrule ACT_II_SCENA_IV
	?p<-(piesa (act II) (scena III))
	?a<-(personaj (prenume Nae) (nume Catavencu) (emotie revolta) )
	?b<-(personaj (prenume Ghita) (nume Pristanda) (emotie furie) )

	=>
	(retract ?p)
	(assert (piesa (act II) (scena IV)))

	(retract ?a)
	(retract ?b)
    (assert (personaj (prenume Zoe) (nume Trahanache) (emotie indignare) (replica "Du-te~degraba~si~sa~nu~vii~fara~Catavencu!")))

    (assert (relatie (tip subordonare) (prenume_unu Zoe) (nume_unu Trahanache)(prenume_doi Ghita) (nume_doi Pristanda)))
    (assert (relatie (tip colegialitate) (prenume_unu Iordache) (nume_unu Branzovenescu) (prenume_doi Tache) (nume_doi Farfuridi)))

    (printout t "Act II Scena IV" crlf)
	(printout t "'Du-te degraba, intr-un suflet, si sa nu vii fara Catavencu' - Zoe Trahanache" crlf)
)

(defrule ACT_II_SCENA_V
	?p<-(piesa (act II) (scena IV))
	?a<-(personaj (prenume Zoe) (nume Trahanache) (emotie indignare) )
	=>
	(retract ?p)
	(assert (piesa (act II) (scena V)))

	(retract ?a)

    (assert (personaj (prenume Zoe) (nume Trahanache) (emotie agitatie) (replica "Trebuie~sa~alegem~pe~Catavencu!")))

    (printout t "Act II Scena V" crlf)
	(printout t "'Trebuie sa alegem pe Catavencu' - Zoe Trahanache" crlf)
)

(defrule ACT_II_SCENA_VI
	?p<-(piesa (act II) (scena V))
	?a<-(personaj (prenume Zoe) (nume Trahanache) (emotie agitatie) )
	=>
	(retract ?p)
	(assert (piesa (act II) (scena VI)))

	(retract ?a)

    (assert (personaj (prenume Zoe) (nume Trahanache) (emotie hotarare) (replica "Da,~sunt~hotarata,~si~trebuie~sa~biruiesc~tot,~si~pe~tine,~Fanica!")))

    (assert (caracterizare (prenume Zoe) (nume Trahanache) (defecte manipulator)))
    (assert (relatie (tip rivalitate) (prenume_unu Stefan) (nume_unu Tipatescu) (prenume_doi Zoe) (nume_doi Trahanache)))
    (assert (relatie (tip colaborare) (prenume_unu Zoe) (nume_unu Trahanache) (prenume_doi Nae) (nume_doi Catavencu)))
    (printout t "Act II Scena VI" crlf)
	(printout t "'Aide, Fanica, lupta, zdrobeste-ma, tu care ziceai ca ma iubesti! Sa vedem! ' - Zoe Trahanache" crlf)
)

(defrule ACT_II_SCENA_VII
	?p<-(piesa (act II) (scena VI))
	?a<-(personaj (prenume Zoe) (nume Trahanache) (emotie hotarare) )
	=>
	(retract ?p)
	(assert (piesa (act II) (scena VII)))

	(retract ?a)

    (assert (personaj (prenume Ghita) (nume Pristanda) (emotie linguseala) (replica "N-ai~ce-i~face:~e~misie.~De~aia~ma~rog~să~pardonati...!")))
    (assert (relatie (tip subordonare) (prenume_unu Nae) (nume_unu Catavencu)(prenume_doi Ghita) (nume_doi Pristanda)))
    (printout t "Act II Scena VII" crlf)
	(printout t "' N-ai ce-i face: e misie. De aia ma rog sa pardonati...' - Ghita Pristanda " crlf)
)

(defrule ACT_II_SCENA_VIII
	?p<-(piesa (act II) (scena VII))
	?a<-(personaj (prenume Ghita) (nume Pristanda) (emotie linguseala) )
	=>
	(retract ?p)
	(assert (piesa (act II) (scena VIII)))

	(retract ?a)

    (assert (personaj (prenume Nae) (nume Catavencu) (emotie victorie) (replica "In~sfarsit,~capituleaza!")))

    (printout t "Act II Scena VIII" crlf)
	(printout t "'In sfarsit, capituleaza! [...] Amabilul Fanica trebuie sa faca venin de moarte!' - Nae Catavencu" crlf)
)

(defrule ACT_II_SCENA_IX
	?p<-(piesa (act II) (scena VIII))
	?a<-(personaj (prenume Nae) (nume Catavencu) (emotie victorie)  )
	=>
	(retract ?p)
	(assert (piesa (act II) (scena IX)))

	(retract ?a)
    (assert (personaj (prenume Nae) (nume Catavencu) (emotie hotarare) (replica "Vreau...~mandatulde deputat,~iata~ce~vreau:~nimic~altceva!")))

    (assert (relatie (tip santaj) (prenume_unu Nae) (nume_unu Catavencu)(prenume_doi Stefan) (nume_doi Tipatescu)))
    (assert (relatie (tip colaborare) (prenume_unu Nae) (nume_unu Catavencu)(prenume_doi Zoe) (nume_doi Trahanache)))

    (printout t "Act II Scena IX" crlf)
	(printout t "'Vreau... mandatul de deputat, iata ce vreau: nimic altceva!' - Nae Catavencu" crlf)
)

(defrule ACT_II_SCENA_X
	?p<-(piesa (act II) (scena IX))
	?a<-(personaj(prenume Nae) (nume Catavencu) (emotie hotarare))
	=>
	(retract ?p)
	(assert (piesa (act II) (scena X)))

	(retract ?a)

    (assert (personaj (prenume Zoe) (nume Trahanache) (emotie ruga) (replica "Fanica!~Fanica!~Hotaraste-te!~Poti~fi~tu~dusmanul~linistii~mele?")))
    (assert (personaj (prenume Stefan) (nume Tipatescu) (emotie resemnare) (replica "Fie.~Domnule~Catavencu,~esti~candidatul~Zoii,~esti~candidatul~lui~nenea~Zaharia...~prin~urmare~si~al~meu!")))

    (assert (relatie (tip santaj_emotional) (prenume_unu Zoe) (nume_unu Trahanache)(prenume_doi Stefan) (nume_doi Tipatescu)))
    (assert (relatie (tip colaborare) (prenume_unu Nae) (nume_unu Catavencu)(prenume_doi Stefan) (nume_doi Tipatescu)))

    (printout t "Act II Scena X" crlf)
	(printout t "' Domnule Catavencu, esti candidatul Zoii, esti candidatul lui nenea Zaharia... prin urmare si al meu! ' - Stefan Tipatescu" crlf)
)

(defrule ACT_II_SCENA_XI
	?p<-(piesa (act II) (scena X))
	?a<-(personaj(prenume Zoe) (nume Trahanache) (emotie ruga))
	?b<-(personaj(prenume Stefan) (nume Tipatescu) (emotie resemnare))
	=>
	(retract ?p)
	(assert (piesa (act II) (scena XI)))

	(retract ?a)
	(retract ?b)

    (assert (personaj (prenume Zaharia) (nume Trahanache) (emotie agitatie) (replica "Draga~Fanica,~trebuie~sa~ne~vedem~inainte~de~intrunire.")))

    (printout t "Act II Scena XI" crlf)
	(printout t "' Draga Fanica, te-am cautat! Ma întorc peste o jumatate de ceas.Trebuie sa ne vedem inainte de intrunire. ! ' - Zaharia Trahanache" crlf)
)

(defrule ACT_II_SCENA_XII
	?p<-(piesa (act II) (scena XI))
	?a<-(personaj (prenume Zaharia) (nume Trahanache) (emotie agitatie))
	=>
	(retract ?p)
	(assert (piesa (act II) (scena XII)))

	(retract ?a)

    (assert (personaj (rol un_cetatean_turmentat) (emotie ebrietate) (replica "Eu~pentru~cine~votez?")))

    (printout t "Act II Scena XII" crlf)
	(printout t "'Eu... pentru cine votez? ' - Cetateanul turmentat" crlf)
)

(defrule ACT_II_SCENA_XIII
	?p<-(piesa (act II) (scena XII))
	?a<-(personaj (rol un_cetatean_turmentat) (emotie ebrietate))
	=>
	(retract ?p)
	(assert (piesa (act II) (scena XIII)))

	(retract ?a)

    (assert (personaj (prenume Tache) (nume Farfuridi) (emotie victorie) (replica "Iaca~tradarea!~Cand~iti~spuneam,~venerabile...")))

    (printout t "Act II Scena XIII" crlf)
	(printout t "'Iaca tradarea! Cand iti spuneam, venerabile!? ' - Tache Farfuridi" crlf)
)

(defrule ACT_II_SCENA_XIV
	?p<-(piesa (act II) (scena XIII))
	?a<-(personaj (prenume Tache) (nume Farfuridi) (emotie victorie))
	=>
	(retract ?p)
	(assert (piesa (act II) (scena XIV)))

	(retract ?a)

    (assert (personaj (prenume Ghita) (nume Pristanda) (emotie agitatie) (replica "Cu~orice~pret,~trebuie~ales~Agamemnon~Dandanache!...")))

    (printout t "Act II Scena XIV" crlf)
	(printout t "'Cu orice pret, dar cu orice pret, colegiul d-voastra al II-lea trebuie sa aleaga pe D. Agamemnon Dandanache ' - Ghita Pristanda" crlf)
)

(defrule ACT_III
	?p<- (piesa (act II) (scena XIV))
	?a<-(personaj (prenume Ghita) (nume Pristanda))
	=>
	(retract ?p)
    (assert (piesa (act III)))

    (retract ?a)

    (assert (personaj (prenume Zaharia) (nume Trahanache) (emotie viclenie) (replica "Candidatul~pe~care-l~sustine~comitetulnostru,~este~domnul...Agamita~Dandanache!")))

    (assert (personaj (prenume Agamemnon) (nume Dandanache) (rol vechi_luptator_de_la_48)(emotie viclenie) (replica "Candidatul~pe~care-l~sustine~comitetulnostru,~este~domnul...Agamita~Dandanache!")))

    (assert (relatie (tip rivalitate) (prenume_unu Nae) (nume_unu Catavencu)(prenume_doi Agamemnon) (nume_doi Dandanache)))

    (assert (relatie (tip conflict) (prenume_unu Nae) (nume_unu Catavencu)(prenume_doi Stefan) (nume_doi Tipatescu)))

    (assert (relatie (tip conflict) (prenume_unu Nae) (nume_unu Catavencu)(prenume_doi Tache) (nume_doi Farfuridi)))

    (assert (relatie (tip disputa) (prenume_unu Nae) (nume_unu Catavencu)(prenume_doi Zaharia) (nume_doi Trahanache)))

    (printout t "Act III Scena V" crlf)
	(printout t "'Industria romana e admirabila, e sublima, putem zice, dar lipseste cu desavarsire.  ' - Nae Catavencu" crlf)


	(printout t "Act III Scena VII" crlf)
	(printout t "'Tradare!' - Nae Catavencu" crlf)
)

(defrule ACT_IV
	?p<-(piesa (act III))
	?a<-(personaj (nume Trahanache))
	?b<-(personaj (nume Dandanache))
	=>
	(retract ?p)
	(assert (piesa (act IV)))

	(retract ?a)
	(retract ?b)
	(assert (scrisoarea (act IV) (scena VII) (personaj Catavencu) (locatie palaria_lui_Catavencu)))
	(assert (scrisoarea (act IV) (scena VII) (personaj cetateanul_turmentat) (locatie palaria_lui_Catavencu)))
	(printout t "Act IV Scena VIII" crlf)
	(printout t "'Sa-mi spui d-ta, pentru cine votez.' - Cetateanul Turmentat" crlf)
	(printout t "'Pentru d. Agamita Dandanache.' - Nae Catavencu" crlf)
)