(define a-vat (spawn-vat))
(define-vat-run a-run a-vat)
(define dec (a-run (spawn ^decision "Bike Shed")))
(a-run ($ dec 'add-alternative "red"))
(a-run ($ dec 'add-alternative "green"))
(a-run ($ dec 'add-alternative "blue"))
(define vote (a-run (spawn ^ranked-choice-vote dec)))
(define ballot (a-run ($ vote 'add-ballot)))

(define (rank312 alts) '(3 1 2))
(a-run ($ ballot 'update-vote rank312))