use luck;
use charisma;
use charm;

// Initiate contact
$greetings = {"hello", "what's up", "saw your profile" };
foreach (@greetings as $phrase) {
print initiate_message($phrase);
}

$interest = message.isReading();
while($interest) {

// Construct self portrait
$fate = new selfDescription();
$fate-interest_topics = {"books", "computers", "programming", "art", "music","etc"};
$fate-names = {"James Joyce", "Hollerith", "von Neumann", "MC Escher", "Philip Glass"};
$fate-appearance={"long hair", "blue eyes", "skinny but energetic", "funny (hopefully)","reference to my profile"};

// Display self portrait
print $fate-render();

// Inquire about interest and conclusion
if ($interest) {
print "You're still here! Great!";
print ($interest ? email_me_back() : let_me_down_gently());