<commit_before>import "../src/LangPrelude.prg"

-- simulate classes as propositions first


prop Functor :: (* ~> *) ~> * ~> * where
  Lfunctor :: Functor [] a
  Tfunctor :: Functor Tree a
  Mfunctor :: Functor Maybe a
  Pairfunctor :: Functor ((,) a) b


prop Monad' :: (* ~> *) ~> * ~> * where
  M :: Functor a b -> Monad' a b


data Tree a = Node a | Fork (Tree a) (Tree a)
<commit_msg>add IO too<commit_after>import "../src/LangPrelude.prg"

-- simulate classes as propositions first
-- later we have to deal with the operational
-- aspects (e.g. dictionary passing)
--

prop Functor :: (* ~> *) ~> * ~> * where
  Lfunctor :: Functor [] a
  Tfunctor :: Functor Tree a
  Mfunctor :: Functor Maybe a
  IOfunctor :: Functor IO a
  Pairfunctor :: Functor ((,) a) b


prop Monad' :: (* ~> *) ~> * ~> * where
  M :: Functor a b -> Monad' a b


data Tree a = Node a | Fork (Tree a) (Tree a)

{'fraction_non_alphanumeric': 0.16441441441441443, 'fraction_numerical': 0.0, 'mean_word_length': 2.933628318584071, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 17, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '1153009', 'n_tokens_mistral': 329, 'n_tokens_neox': 315, 'n_words': 108}