(use-modules (deliberate)
	     (goblins)
	     (goblins vrun)
	     (goblins actor-lib methods))

(define a-vat (spawn-vat))
(define-vat-run a-run a-vat)
(define delib (a-run (spawn ^deliberation "Bike Shed")))
(a-run ($ delib 'add-alternative "red"))
(a-run ($ delib 'add-alternative "green"))
(a-run ($ delib 'add-alternative "blue"))
(define vote (a-run (spawn ^ranked-choice-vote delib ($ delib 'debug-alternatives))))
(define ballot (a-run ($ vote 'add-ballot)))

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