If you want to see how it works, see the README on the repo.
Last active
May 2, 2022 20:55
-
-
Save vivshaw/2d25a541c0ff7c689474865e8a75c520 to your computer and use it in GitHub Desktop.
πππ Three Wise Monkeys πππ
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{-# LANGUAGE CPP #-} | |
#define some_things other | |
#define wise the | |
#define program_wont run: | |
module ThreeWiseMonkeys where | |
#define the monkeys | |
#define wisdom type | |
#define teaches :: | |
#define us what | |
#define is = | |
#define righteous >>= | |
#define right ( | |
#define understanding ) | |
#define thought ) | |
#define speech ) | |
#define action ) | |
#define livelihood ) | |
#define effort ) | |
#define mindfulness ) | |
#define concentration ) | |
#define yet -> | |
#define right_living is | |
#define simple >>= | |
#define when_you know | |
#define how : | |
#define take refuge | |
#define in = | |
#define buddha -> | |
#define dharma -> | |
#define sangha -> | |
#define now -> | |
#define it -> | |
#define becomes -> | |
#define your -> | |
#define boundless -> | |
#define love -> | |
-- Posit some moral maxims | |
wisdom See no e vil is (no -> e -> vil) -> (no -> e) -> no -> vil | |
wisdom Hear no evil is no -> evil -> no | |
wisdom Speak no_evil is no_evil -> no_evil | |
-- Introduce three wise monkeys | |
θ¦γγ the monkey is the righteous \γ dharma monkey simple \γ yet pure $ γ γ | |
θγγγ the monkey is wise | |
θ¨γγγ the_monkey is the_monkey | |
-- Now reflect on their teachings | |
(π) teaches See no e vil | |
(π) is θ¦γγ | |
(π) teaches Hear no evil | |
(π) is θγγγ | |
(π) teaches Speak no_evil | |
(π) is θ¨γγγ | |
-- Derive some further ethical principles | |
wisdom Disciplined mind brings happiness is (mind -> brings -> happiness) | |
it brings your mind boundless happiness | |
wisdom Conquer anger with non_anger is (with -> non_anger) -> (anger -> with) | |
now anger becomes non_anger | |
(π) teaches Disciplined mind brings happiness | |
(π) is (π) ((π) ((π) ((π) ((π) (π)) (π))) (π)) ((π) (π)) | |
(π΅) teaches Conquer anger with non_anger | |
(π΅) is (π) ((π) (π)) (π) | |
-- Now take refuge in the Three Jewels and follow the Eightfold Path | |
the_three_jewels :: (π« buddha κ© dharma κ©) sangha κ© buddha (π« dharma π«) sangha π« buddha κ© | |
the_three_jewels = | |
( right π understanding | |
((π)((π) (π))((π)((π)(π))((π) ((π) (π))((π)((π)((π)((π) (π))))((π)((π)((π) (π)) | |
((π)((π) (π))((π)((π)(π΅)) (π))))((π)((π) (π΅)((π) (π΅)((π) (π΅) ((π) (π΅)((π) (π΅) | |
((π) (π΅)((π) (π΅)((π)(π΅) ((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅) ((π) (π΅)((π) (π΅) | |
((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅) ((π) (π΅)((π) (π΅) | |
((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅) ((π) (π΅)((π) (π΅) | |
((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅) ((π) (π΅)((π) (π΅) | |
((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅) ((π) (π΅)((π) (π΅) | |
((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅) ((π) (π΅)((π) (π΅) | |
((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅) ((π) (π΅)((π) (π΅) | |
((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅) ((π) (π΅)((π) (π΅) | |
((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅) ((π) (π΅)((π) (π΅) | |
((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅) ((π) (π΅)((π) (π΅) | |
((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅)((π) (π΅) ((π) (π΅)((π) (π΅) | |
((π) (π΅)((π) (π))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) | |
))))))))))))))))))))))))))))) | |
( right π thought | |
((π)((π) (π))((π)((π) (π))((π) ((π) (π))((π)((π)((π)((π)(π))))((π)((π)((π) (π)) | |
((π)((π) (π))((π)((π) (π΅)) (π))))((π)((π) (π΅)((π) (π΅)((π)(π΅) ((π) (π΅)((π) (π΅) | |
((π) (π΅)((π) (π΅)((π) (π΅) ((π) (π΅)((π) (π΅)((π) (π΅)((π)(π΅) ((π) (π΅)((π) (π΅) | |
((π) (π΅)((π) (π΅)((π) (π΅) ((π) (π΅)((π) (π΅)((π) (π΅)((π)(π΅) ((π) (π΅)((π) (π΅) | |
((π) (π΅)((π) (π΅)((π) (π΅) ((π) (π΅)((π) (π΅)((π) (π΅)((π)(π΅) ((π) (π΅)((π) (π΅) | |
((π) (π΅)((π) (π΅)((π) (π΅) ((π) (π΅)((π) (π΅)((π) (π΅)((π)(π΅) ((π) (π΅)((π) (π΅) | |
((π) (π΅)((π) (π΅)((π) (π΅) ((π) (π΅)((π) (π΅)((π) (π΅)((π)(π΅) ((π) (π΅)((π) (π΅) | |
((π) (π΅)((π) (π΅)((π) (π΅) ((π) (π΅)((π) (π΅)((π) (π΅)((π)(π΅) ((π) (π΅)((π) (π΅) | |
((π) (π΅)((π) (π΅)((π) (π΅) ((π) (π΅)((π) (π΅)((π) (π΅)((π)(π΅) ((π) (π΅)((π) (π΅) | |
((π) (π΅)((π) (π΅)((π) (π΅) ((π) (π΅)((π) (π΅)((π) (π΅)((π)(π΅) ((π) (π΅)((π) (π΅) | |
((π) (π΅)((π) (π΅)((π) (π΅) ((π) (π΅)((π) (π΅)((π) (π΅)((π)(π΅) ((π) (π΅)((π) (π΅) | |
((π) (π΅)((π) (π΅)((π) (π΅) ((π) (π΅)((π) (π΅)((π) (π΅)((π)(π΅) ((π) (π΅)((π) (π΅) | |
((π) (π))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) | |
( right π speech | |
((π) | |
((π)(π)) | |
((π)((π)(π)) | |
((π)((π)(π))((π) | |
((π)((π)((π)(π)))) | |
((π)((π)((π)(π))((π) | |
((π)(π))((π)((π)(π΅))(π)))) | |
((π)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π))))))) | |
)))))))))))))))))))))))))) | |
))))))))))))))))))))) | |
))))))))))))))) | |
))))))))))) | |
)))))))) | |
)))))) | |
)))) | |
( right π action | |
((π)((π)(π))((π)((π)(π)) | |
((π)((π)(π))((π)((π)((π)((π)(π)))) | |
((π)((π)((π)(π))((π)((π)(π))((π)((π)(π΅))(π)))) | |
((π)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅) ((π)(π΅) | |
((π)(π΅) ((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅) ((π)(π΅) | |
((π)(π΅) ((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅) ((π)(π΅) | |
((π)(π΅) ((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅) ((π)(π΅) | |
((π)(π΅) ((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π) (π΅)((π) (π)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) | |
( right π livelihood | |
((π)((π)(π))((π)((π)(π))((π)((π)(π))((π)((π)((π)((π)(π))))((π)((π)((π)(π))((π) | |
((π)(π))((π)((π)(π΅))(π))))((π)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅) ((π)(π΅) ((π)(π΅) ((π)(π΅) ((π)(π΅) ((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅) ((π)(π΅) ((π)(π΅) ((π)(π΅) ((π)(π΅) ((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅) ((π)(π΅) ((π)(π΅) ((π)(π΅) ((π)(π΅) ((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅) ((π)(π΅) ((π)(π΅) ((π)(π΅) ((π)(π΅) ((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) | |
( right π effort | |
((π) ((π) (π)) | |
((π) ((π) | |
(π)) ((π) | |
((π) (π)) | |
((π) ((π) | |
((π) ((π) | |
(π)))) ((π) | |
((π) ((π) | |
(π)) ((π) | |
((π) (π)) | |
((π)((π)(π΅))(π))))((π)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅) ((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) ((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) | |
( right π mindfulness | |
((π)((π)(π))((π)((π)(π))((π)((π)(π))((π)((π)((π)((π)(π)))) | |
((π)((π)((π)(π))((π)((π)(π))((π)((π)(π΅))(π))))((π) | |
((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) ((π)(π΅) | |
((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) | |
((π)(π΅) ((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) ((π)(π΅) | |
((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) | |
((π)(π΅) ((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) ((π)(π΅) | |
((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) | |
((π)(π΅) ((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) ((π)(π΅) | |
((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) | |
((π)(π΅) ((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) ((π)(π΅)((π)(π΅) ((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π))))))) | |
))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) | |
( right π concentration | |
((π)((π)(π))((π)((π)(π))((π)((π)(π))((π)((π)((π)((π)(π))))((π)((π)((π)(π))((π)((π) | |
(π))((π)((π)(π΅))(π))))((π)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π) | |
(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π) | |
(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π) | |
(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π) | |
(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π) | |
(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π) | |
(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π) | |
(π΅)((π)(π΅)((π)(π΅)((π) | |
(π΅)((π)(π΅)((π)(π))) | |
)))))))))))))))))))))) | |
))))))))))))))))) | |
))))))))))))) | |
)))))))) | |
))))) | |
))) | |
) | |
))))))))))))))))))))))))))))))))))))))))))((π)((π)((π)(π))((π)((π)(π))((π)((π)(π))((π)((π)((π)((π)(π)))) | |
((π)((π)((π)(π))((π)((π)(π))((π)((π)(π΅))(π))))((π)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π) | |
(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π) | |
(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π) | |
(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π) | |
(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))((π) | |
((π)((π)(π))((π)((π)(π))((π)((π)(π))((π)((π)((π)((π)(π))))((π)((π)((π)(π))((π)((π)(π))((π) | |
((π)(π΅))(π))))((π)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π) | |
(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π) | |
(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π) | |
(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅)((π)(π΅) | |
((π)(π΅)((π)(π΅)((π)(π))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) | |
((π)((π)((π)(π))((π)((π)(π))((π)((π)(π))((π)((π)((π)((π)(π))))((π)((π)((π)(π))((π)((π)(π)) | |
((π)((π)(π΅))(π))))((π)((π)(π))))))))((π)((π)((π)((π)((π)(π))))((π)((π)(π))(π)))))))))))))) | |
take_refuge_in teachings = teachings ((>>).putChar) (pure ()) succ '\n' | |
main :: IO () | |
main = take_refuge_in the_three_jewels |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment