(use-modules (srfi srfi-1)
	     (deliberate borda))

(define test-alts '("red" "green" "blue"))

(define test-pref '("blue"))

(define test-profile
  '((1 . ("red" "green" "blue"))
    (1 . ("green" "red" "blue"))
    (1 . ("green"))
    ))

(borda-score test-alts test-pref)

(social-preference-borda test-alts test-profile)

(social-choice-borda test-alts test-profile)