1 files changed, 11 insertions, 0 deletions
diff --git a/antiformatter/src/test.rkt b/antiformatter/src/test.rkt
new file mode 100644
index 0000000..57e6367
--- /dev/null
+++ b/antiformatter/src/test.rkt
@@ -0,0 +1,11 @@
+#lang racket
+
+(define (mangle sexp)
+  (if (not (list? sexp)) (error 'mangle "not an s-exp")
+    (if (empty? sexp) ""
+      (let ((paren (random-paren)))
+        (string-append
+          (first paren)
+          (mangle-params sexp)
+          (random-newline)
+          (last paren))))))