# antiformatter: attempting to make the worst possible passable racket code usage: `racket antifmt.rkt ` regular racket code. boring to read, easy on the eyes. booooooo ```rkt (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)))))) ``` anti-formatted racket code. exciting! an adventure to understand! still compiles (usually) ```rkt [define [mangle sexp ] [if (not [list? sexp ] ) [error {quote mangle } "not an s-exp" ] (if {empty? sexp } "" [let {{paren {random-paren } } } [string-append {first paren } (mangle-params sexp ) {random-newline } [last paren ] ] ] ) ] ] ```