; This is a riff on the Unix fortune program.
; See https://en.wikipedia.org/wiki/Fortune_%28Unix%29 for more context

%-

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

(:def fortune
  (:oneof
    (| "Fight god constantly.")
    (| "You will be let down by someone close to you.")
    (| "I'm not high-strung. I'm strung precisely as I am meant to be.")
    (| "Do not fail.")
    (| "Trim the fat.")
    (| "The world rewards vigilance")
    (| "Wash your hands with soap and water for at least 20 seconds.")
    (| "Cleanliness is next to godliness.")
    (| "Do not complain.")
    (| "Guilt redeems, not love.")
    (| "There is no such thing as metaphors.")
    (| "Excess is a sin.")
    (| "Spurn your family.")
    (| "Salvation is finality.")
    (| "Love animals.")
    (| "Sex wastes the male body.")
    (| "Cultivate weakness.")
    (| "Beauty is a moral imperative.")
    (| "We are all damned by our own personalities. That is beauty.")
    (| "To err is immoral.")
    (| $ quote ("« Le beau est ce qu'on désire sans vouloir le manger. »", "Simone Weil"))
    (| $ quote ("\"You're more likely to get cut with a dull tool than a sharp one.\"", "Fiona Apple"))
    (| $ quote ("\"You forgot the difference between equanimity and passivity.\"", "Fiona Apple"))
    (| $ quote ("\"I don't believe in empirical science. I only believe in a priori truth.\"", "Kurt Gödel")) ; german? hm
    (| "Obedience is a virtue.")
    (| "\"You have potential,\" is an insult.")
    (| "Leisure is a sin")
    (| "Strive on all fronts")))

(:def main
  fortune)