<commit_before>namespace Mal

open System
open Types

type Printer() =
    static member pr_str ast =
        let rec f acc = function
            | Number x -> string x
            | List xs -> acc + "(" + (List.map (f "") xs |> String.concat " ") + ")"
            | Symbol x -> x
        f "" ast<commit_msg>small improve.<commit_after>namespace Mal

open System
open Types

type Printer() =
    static member pr_str ast =
        let rec f = function
            | Number x -> string x
            | List xs -> "(" + (List.map f xs |> String.concat " ") + ")"
            | Symbol x -> x
        f ast
{'fraction_non_alphanumeric': 0.12231404958677686, 'fraction_numerical': 0.0, 'mean_word_length': 1.6814159292035398, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 11, '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': '608997', 'n_tokens_mistral': 180, 'n_tokens_neox': 175, 'n_words': 64}