!7

static O obj;

concept Obj {
  S structure;
}

p {
  db();
  loadObj();
  bot();
}

svoid loadObj {
  obj = null;
  Obj o = findConcept(Obj);
  if (o != null)
    obj = unstructure(o.structure);
}

answer {
  if (startsWith(s, "string =", m)) {
    S newObj = unquoteIfProperlyQuoted($1);
    cset(uniq(Obj), structure := structure(newObj));
    loadObj();
    ret "Have object of type " + getClassName(obj);
  }
  
  if (eq(s, "!obj"))
    ret "Have object of type " + getClassName(obj);
}