Listing 2.
Debugging turned on
John Nolan

Chatbot::Eliza
The Perl Journal, Spring 1998
  Listing 2: Debugging turned on


you: He is always upset. 

1> always 

: * : 0 He is always upset 

--> When ? 



Eliza: When? 

you: Always. Especially when things are hectic. 

1> always 

: * : 0 Always 

--> Can you think of a specific example? 



Eliza: Can you think of a specific example? 

you: Well, yesterday he said he was unhappy with all of us. 

2> was 

: * was i *

 : * i was *

 : * was you * 

-1> xnone 

: * : 0 xnone 

--> That is interesting. Please continue. 



Eliza: That is interesting. Please continue. 

you: He says I am too lazy. 

0> i 

: * i @desire *

: * i am* @sad *

: * i am* @happy *

: * i was *

: * i @belief i *

: * i* @belief *you *

: * i am * : 0 He says too lazy 

--> Is it because you are (2) that you came to me ? 



Eliza: Is it because you are too lazy that you came to me?