(use-modules (deliberate borda))
(define alts '(bad best better good worst))
(define p '(best better good))
(borda-score alts p)