#<p>
#  Check to see if any candidate has a clear majority.
#<[succeeds if a candidate has a clear majority]>
#<[fails if no candidate has a clear majority yet]>
#</p>
procedure majority()