<commit_before>#!/usr/bin/perl -w

#
# Test Harness...
#

open(T, ">test.pasm") || die;
<commit_msg>Screwed up ID strings<commit_after>#!/usr/bin/perl -w
#
# $Id$
# $Log$
# Revision 1.7  2002/05/24 03:59:46  clintp
# Screwed up ID strings
#

# Loads and runs the BASIC interpreter.
#
# Subsequent runs can be done with:
#    parrot.exe out.pbc
#
open(T, ">test.pasm") || die;

{'fraction_non_alphanumeric': 0.18085106382978725, 'fraction_numerical': 0.0425531914893617, 'mean_word_length': 3.488095238095238, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 5, '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': '4086798', 'n_tokens_mistral': 181, 'n_tokens_neox': 159, 'n_words': 40}