<commit_before>Sexy
====

*(real.languages (have 'curves))* 

This is a compiler extension for Chicken Scheme (http://call-cc.org/).

It implements a prototype of a Sexy language.

```scheme

(def foo (fn x y (* x y)))

(show (foo 3 4)) 

(fun bar x y 
    (if argo.snazz
        (list x y argo.snazz argo.snarf argv)
        (list x y argv)))

(map show
    (list
        (bar 2 3)
        (bar 2 3 4 5)
        (bar 2 snazz: #t 3 4 5)
        (bar 2 snazz: #t snarf: "Yarr!" 3 4 5)))
```

Output:

12
(2 3 ())
(2 3 (4 5))
(2 3 #t #f (4 5))
(2 3 #t Yarr! (4 5))


<commit_msg>freakin markdown<commit_after>Sexy
====

**(real.languages (have 'curves))**

This is a compiler extension for Chicken Scheme (http://call-cc.org/).

It implements a prototype of a Sexy language.

```scheme

(def foo (fn x y (* x y)))

(show (foo 3 4)) 

(fun bar x y 
    (if argo.snazz
        (list x y argo.snazz argo.snarf argv)
        (list x y argv)))

(map show
    (list
        (bar 2 3)
        (bar 2 3 4 5)
        (bar 2 snazz: #t 3 4 5)
        (bar 2 snazz: #t snarf: "Yarr!" 3 4 5)))
```

Output:

```scheme
12
(2 3 ())
(2 3 (4 5))
(2 3 #t #f (4 5))
(2 3 #t Yarr! (4 5))
```


{'fraction_non_alphanumeric': 0.16737830913748933, 'fraction_numerical': 0.05465414175918019, 'mean_word_length': 2.202185792349727, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, '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': '2287387', 'n_tokens_mistral': 553, 'n_tokens_neox': 477, 'n_words': 194}