diff --git a/tools.rkt b/tools.rkt
index 619b3c0..a36b143 100644
--- a/tools.rkt
+++ b/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 "")))