code: function reduce_right(seq, pred, initial, ctx) {
          if (objp(ctx))  pred = pred.bind(ctx)
  
          return sequencep(seq)?  __reduce_right.call(seq, pred, initial)
               : /* non-seq */    []
      }
docs: /// Function reduce_right ////////////////////////////////////////////////  (seq:Sequence, pred:Fn[, initial][, ctx:Obj]) ↦ *mixed*  Apply the predicate against each pair in the array (right to left) so to return a single accumulated value.  An starting value can be given, in which case the array will work as if that item was inserted as the last element.