 { $description "Similar to " { $link find } ", but finds all of the indices and elements that match the provided quotation, not just the first." }
 { $notes "The result is provided as an array of arrays, whose first value is the index and whose second value is teh element." } ;
 
+HELP: first=
+{ $values
+    { "seq" sequence }
+    { "elt" object }
+    { "?" boolean } }
+{ $description "Checks whether the first element of " { $snippet "seq" } " is equal to " { $snippet "elt" } "." } ;
+
+HELP: first?
+{ $values
+    { "seq" sequence }
+    { "quot" { $quotation ( ... elt -- ... ? ) } }
+    { "?" boolean } }
+{ $description "Tests whether the first element of " { $snippet "seq" } " satisfies the provided predicate." } ;
+
+HELP: fourth=
+{ $values
+    { "seq" sequence }
+    { "elt" object }
+    { "?" boolean } }
+{ $description "Checks whether the fourth element of " { $snippet "seq" } " is equal to " { $snippet "elt" } "." } ;
+
+HELP: fourth?
+{ $values
+    { "seq" sequence }
+    { "quot" { $quotation ( ... elt -- ... ? ) } }
+    { "?" boolean } }
+{ $description "Tests whether the fourth element of " { $snippet "seq" } " satisfies the provided predicate." } ;
+
 HELP: <odds>
 { $values { "seq" sequence } { "odds" odds } }
 { $description "Create a virtual sequence whose elements consist of the odd-indexed elements from the original sequence." }

USING: help.markup help.syntax kernel math sequences ;
IN: sequences.extras

HELP: count*
{ $values

HELP: >resizable
{ $values { "seq" sequence } { "accum" sequence } }
{ $description "Converts a sequence into the nearest resizable equivalent, preserving its contents." } ;

HELP: second=
{ $values
    { "seq" sequence }
    { "elt" object }
    { "?" boolean } }
{ $description "Checks whether the second element of " { $snippet "seq" } " is equal to " { $snippet "elt" } "." } ;

HELP: second?
{ $values
    { "seq" sequence }
    { "quot" { $quotation ( ... elt -- ... ? ) } }
    { "?" boolean } }
{ $description "Tests whether the second element of " { $snippet "seq" } " satisfies the provided predicate." } ;

HELP: subseq*
{ $values
