%-

(:def quote
  (:lambda qu text
    (:lambda name text
      "${qu}\n    — ${name}")))

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