%-

(:def a
  (:branch
    (| 0.75 "a")
    (| 0.25 (> "a" b))))

(:def b
  (:branch
    (| 0.75 "b")
    (| 0.25 (> "b" a))))

(:def main
  (> a b))