%-

(:def quote
  (:lambda qu text
    (:lambda name text
      '''
      ${qu}
          — ${name}
      ''')))

(:def main
  (:branch
    (| 1.0 ($ ($ quote "God created war so that Americans would learn geography.") "Mark Twain"))))