<commit_before><commit_msg>Added tests for chaingin and tap.<commit_after>(describe chain
          (== (-> 1) 1)
          (== (-> 1 (+ 2)) 3)
          (== (-> 1 (+ 2) (* 3)) 9)
          (== (-> 1 (+ 2) str) "3"))

(describe tap
          (== (tap 1 (* 2) str) 1)
          (== (let ((a 1)
                    (foo (lambda (x) (set! a x))))
                (tap 4 foo)
                a)
              4))

{'fraction_non_alphanumeric': 0.21271393643031786, 'fraction_numerical': 0.044009779951100246, 'mean_word_length': 1.1693121693121693, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 7, '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': '2817366', 'n_tokens_mistral': 160, 'n_tokens_neox': 136, 'n_words': 41}