diff --git a/extra/faq/authors.txt b/extra/faq/authors.txt
deleted file mode 100755
index f990dd0ed2..0000000000
--- a/extra/faq/authors.txt
+++ /dev/null
@@ -1 +0,0 @@
-Daniel Ehrenberg
diff --git a/extra/faq/faq.factor b/extra/faq/faq.factor
deleted file mode 100644
index 512817bc4d..0000000000
--- a/extra/faq/faq.factor
+++ /dev/null
@@ -1,113 +0,0 @@
-! Copyright (C) 2007 Daniel Ehrenberg
-! See http://factorcode.org/license.txt for BSD license.
-USING: xml kernel sequences xml.utilities math xml.data
-arrays assocs xml.generator xml.writer namespaces
-make math.parser io accessors ;
-IN: faq
-
-: find-after ( seq quot -- elem after )
-    over [ find ] dip rot 1+ tail ; inline
-
-: tag-named*? ( tag name -- ? )
-    assure-name swap tag-named? ;
-
-! Questions
-TUPLE: q/a question answer ;
-C: <q/a> q/a
-
-: li>q/a ( li -- q/a )
-    [ "br" tag-named*? not ] filter
-    [ "strong" tag-named*? ] find-after
-    [ children>> ] dip <q/a> ;
-
-: q/a>li ( q/a -- li )
-    [ question>> "strong" build-tag* f "br" build-tag* 2array ] keep
-    answer>> append "li" build-tag* ;
-
-: xml>q/a ( xml -- q/a )
-    [ "question" tag-named children>> ] keep
-    "answer" tag-named children>> <q/a> ;
-
-: q/a>xml ( q/a -- xml )
-    [ question>> "question" build-tag* ] keep
-    answer>> "answer" build-tag*
-    "\n" swap 3array "qa" build-tag* ;
-
-! Lists of questions
-TUPLE: question-list title seq ;
-C: <question-list> question-list
-
-: xml>question-list ( list -- question-list )
-    [ "title" swap at ] keep
-    children>> [ tag? ] filter [ xml>q/a ] map
-    <question-list> ;
-
-: question-list>xml ( question-list -- list )
-    [ seq>> [ q/a>xml "\n" swap 2array ]
-      map concat "list" build-tag* ] keep
-    title>> [ "title" pick set-at ] when* ;
-
-: html>question-list ( h3 ol -- question-list )
-    [ [ children>string ] [ f ] if* ] dip
-    children-tags [ li>q/a ] map <question-list> ;
-
-: question-list>h3 ( id question-list -- h3 )
-    title>> [
-        "h3" build-tag
-        swap number>string "id" pick set-at
-    ] [ drop f ] if* ;
-
-: question-list>html ( question-list start id -- h3/f ol )
-    -rot [ [ question-list>h3 ] keep seq>> [ q/a>li ] map "ol" build-tag* ] dip
-    number>string "start" pick set-at
-    "margin-left: 5em" "style" pick set-at ;
-
-! Overall everything
-TUPLE: faq header lists ;
-C: <faq> faq
-
-: html>faq ( div -- faq )
-    unclip swap { "h3" "ol" } [ tags-named ] with map
-    first2 [ f prefix ] dip [ html>question-list ] 2map <faq> ;
-
-: header, ( faq -- )
-    dup header>> ,
-    lists>> first 1 -1 question-list>html nip , ;
-
-: br, ( -- )
-    "br" contained, nl, ;
-
-: toc-link, ( question-list number -- )
-    number>string "#" prepend "href" swap 2array 1array
-    "a" swap [ title>> , ] tag*, br, ;
-
-: toc, ( faq -- )
-    "div" { { "style" "background-color: #eee; margin-left: 30%; margin-right: 30%; width: auto; padding: 5px; margin-top: 1em; margin-bottom: 1em" } } [
-        "strong" [ "The big questions" , ] tag, br,
-        lists>> rest dup length [ toc-link, ] 2each
-    ] tag*, ;
-
-: faq-sections, ( question-lists -- )
-    unclip seq>> length 1+ dupd
-    [ seq>> length + ] accumulate nip
-    0 -rot [ pick question-list>html [ , nl, ] bi@ 1+ ] 2each drop ;
-
-: faq>html ( faq -- div )
-    "div" [
-        dup header,
-        dup toc,
-        lists>> faq-sections,
-    ] make-xml ;
-
-: xml>faq ( xml -- faq )
-    [ "header" tag-named children>string ] keep
-    "list" tags-named [ xml>question-list ] map <faq> ;
-
-: faq>xml ( faq -- xml )
-    "faq" [
-        "header" [ dup header>> , ] tag,
-        lists>> [ question-list>xml , nl, ] each
-    ] make-xml ;
-
-: read-write-faq ( xml-stream -- )
-    read-xml xml>faq faq>html write-xml ;
diff --git a/extra/faq/summary.txt b/extra/faq/summary.txt
deleted file mode 100755
index c33f8cffeb..0000000000
--- a/extra/faq/summary.txt
+++ /dev/null
@@ -1 +0,0 @@
-The Factor FAQ