/* $OpenXM: OpenXM/src/kan96xx/trans/trans.hh,v 1.1 2003/11/24 08:16:13 takayama Exp $ */
else if (strcmp(key,"treeToPolymake") == 0) {
  if (size != 2) errorKan1("%s\n","[(treeToPolymake)  obj] extension stro.");
  obj1 = getoa(obj,1);
  if (obj1.tag != Sclass) {
    errorKan1("%s\n","[(treeToPolymake) obj] extension stro.");
  }
  rob = KtreeToPolymakeS(obj1);
}