add html->xexpr

tools.rkt

@@ -1,5 +1,10 @@
 #lang racket/base
 (require racket/list "debug.rkt" "predicates.rkt")
-(provide (all-from-out  racket/list "debug.rkt" "predicates.rkt"))
+(provide (all-defined-out)
+         (all-from-out  racket/list "debug.rkt" "predicates.rkt"))
 
 
+(require xml racket/string)
+
+(define (html->xexpr . xs)
+  (string->xexpr (string-join xs "")))