varargs string get_stack( int x) {
int i, s;
string list = "";
string *stack0 = call_stack(0);
string *stack1 = call_stack(1);
string *stack2 = call_stack(2);
for(i = 0, s = sizeof(stack1); i < s; i++){
list +="\n"+i+":"+identify(stack2[i])+"."+identify(stack1[i])+"."+identify(stack2[i]);
}
if(x){
list += "\n"+ identify(previous_object(-1));
}
return list;
}