code: function count(seq, value, pred) { var result, i
          result = 0
          seq    = Object(seq)
          for (i = size(seq); i--;)
              if (i in seq)
                  if (pred)  pred(value, seq[i]) && result++
                  else       (value === seq[i])  && result++
  
          return result
      }
docs: /// Function count ///////////////////////////////////////////////////////  (seq:Sequence, value[, pred:Fn]) ↦ Num  Returns the number of occurrences of `value' in the given sequence, optionally filtered by a predicate.  If a predicate is not given, it'll consider a strict equality comparison.