Default procedure

currentSituation('How are you?'){

tmpStat := getContext();
if(tmpStat != brilliantSituation || tmpStat != hellOnEarth)
return tmpStat;
else{
relativeStat := couldIFeelWorseInThisSituation(tmpStat);
if(relativeStat)
return 'alright';
else
return 'ok';
}

}


(this is the simplified version.. for simplicity reasons the parameter 'voice tone' has not been included)