procedure main(args)
    every write(!mode(args))
end

procedure mode(A)
    hist := table(0)
    every hist[!A] +:= 1
    hist := sort(hist, 2)
    modeCnt := hist[*hist][2]
    every modeP := hist[*hist to 1 by -1] do {
        if modeCnt = modeP[2] then suspend modeP[1]
        else fail
        }
end