diff --git a/scripts/get-challenge b/scripts/get-challenge
index 0be58f7..6968a43 100755
--- a/scripts/get-challenge
+++ b/scripts/get-challenge
@@ -16,7 +16,7 @@
 (define (xexpr->style-ast doc)
   (match doc
     [(? string?) (style-ast #f #f #f doc)]
-    [(list 'script _ ...) #f]
+    [(list (or 'script 'form) _ ...) #f]
     [(list-no-order 'p (list 'span (list-no-order '(class "share")) _ ...) _ ...) #f]
     [(list 'li _ children ...)
      (define out-children (filter identity (map xexpr->style-ast children)))
@@ -38,7 +38,7 @@
          [('em _) (values #f #f 'bold)]
          [(_ _)
           (printf "warning: unhandled ~a ~a\n" tag attrs)
-          (#f #f #f)]))
+          (values #f #f #f)]))
      (define inner-children (filter identity (map xexpr->style-ast children)))
      (define new-children
        (if ((or/c 'h2 'pre 'p) tag)