!7

cmodule2 QuestionTripleTest > DynPrintLog {
  switchable S multiBotModule;
  switchable long mainPostID;
  transient GazellePost mainPost, variation, q1, q2, a1, a2;
  
  start-thread {
    mainPost = importPost(dm_call(multiBotModule, "getPost", mainPostID));
    print(+mainPost);
    if (mainPost == null) ret;
    variation = importPost(first((L) dm_call(multiBotModule, "repliesWithTag", mainPost.importedFrom, "variation of")));
    print(+variation);
    if (variation == null) ret;
    
    q1 = replyWithType(mainPost, "Question");
    print(+q1);
    q2 = replyWithType(variation, "Question");
    print(+q2);
    a1 = replyWithType(q1, "Answer");
    print(+a1);
    a2 = replyWithType(q2, "Answer");
    print(+a2);
  }
  
  GazellePost importPost(O post) {
    if (post == null) null;
    GazellePost p = cast quickImport(post);
    p.importedFrom = post;
    ret p;
  }
  
  GazellePost replyWithTag(GazellePost post, S tag) {
    ret post == null ? null : importPost(first((L) dm_call(multiBotModule, "repliesWithTag", post.importedFrom, tag)));
  }
  
  GazellePost replyWithType(GazellePost post, S type) {
    if (post == null) null;
    ret objectWhereIC(lmap importPost((L) dm_call(multiBotModule, "repliesTo", post.importedFrom)), +type);
  }
}