ask ask#1 "critic" @5:40 order=0 type="string"
actor actor#1 "critic" @5:24 order=1
ask ask#2 "writer" @10:36 order=2 type="string"
actor actor#2 "writer" @10:20 order=3
fact ask-data ask#1 <- ask#2 exact
fact ask-data ask#1 <- ask#1 exact
fact ask-actor ask#1 <- actor#1 exact
fact ask-actor ask#2 <- actor#2 exact
fact return <- ask#1 exact
region seq#1 seq entered
region loop#1 loop parent=seq#1 @4:1 entered recursive label="refine"
region call#1 call parent=loop#1 @11:8 entered label="refine" strand
region choice#1 choice parent=call#1 @6:7 entered
region branch#1 branch parent=choice#1 @6:21
region choice#2 choice parent=call#1 @6:3 entered
region branch#2 branch parent=choice#2 @6:46
spawn actor#2 in=seq#1
issue ask#2 in=seq#1 phase=unphased
settle ask#2 in=seq#1
spawn actor#1 in=seq#1>loop#1>call#1
issue ask#1 in=seq#1>loop#1>call#1 phase=unphased
settle ask#1 in=seq#1>loop#1>call#1
jump return call#1 in=seq#1>loop#1>call#1>choice#2>branch#2 phase=unphased
jump recur loop#1 in=seq#1>loop#1>call#1 phase=unphased
jump return call#1 in=seq#1>loop#1>call#1 phase=unphased
jump return seq#1 in=seq#1 phase=unphased
control branch#1 by=ask#1
control branch#2 by=ask#1
