task WhileExample
  trackvar bad {Consultation:end}
  seq
    Consultation
    while bad
      Staff
      Consultation
    end
  end
end