+: fixup-words ( title href -- title' href' )
+ dup "word-" head? [
+ dup ".html" ?tail drop "," split1-last nip dup ":" append
+ '[ " (" _ 3append ")" append _ ?head drop ] dip
+ ] when ;
+
+: links ( apropos -- seq )
+ [ swap fixup-words <simple-link> ] { } assoc>map ;
+
+: ?links ( has-links? apropos -- has-links? seq/f )
+ links [ f ] [ nip t swap ] if-empty ;
+
+: ?tokenize ( str -- str' )
+ [ tokenize ] [ drop 1array ] recover ;