TUPLE: ctr e n ; : ( -- ctr ) f 0 ctr boa ; : check ( ctr e -- ctr' ) over n>> zero? [ >>e 1 >>n ] [ over e>> = [ [ 1 + ] change-n ] [ [ 1 - ] change-n ] if ] if ; : majority ( seq -- e/f ) [ check ] reduce e>> ;