;; Dialogue tree 'foo-tree is created as first dialogue bit for it is defined

(define-dialogue 'foo
    '(:tree foo-tree                   ;; This dialogue bit is part of dialogue tree 'foo-tree
      :text "This is the first line.") ;; This is the text presented to the user
  '(foo-1 :text "Choice 1" :jump bar)  ;; Choosing this jumps dialogue to 'bar
  '(foo-1 :text "Choice 2" :jump baz)  ;; Choosing this jumps dialogue to 'baz (not shown)
  '(foo-2 :text "Choice 3")))          ;; Choosing this will exit the dialogue tree

(define-dialogue 'bar
    '(:tree foo-tree :text "This is the second line.")
  '(bar-1 :text "Choice 1" :jump baz)
  '(bar-2 :text "Choice 2"))