; 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.")
(| "There is no such thing as metaphors.")
(| "Excess is a sin.")
(| "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)