diff --git a/pricing-table.rkt b/pricing-table.rkt index cbc83e8..e407e1e 100644 --- a/pricing-table.rkt +++ b/pricing-table.rkt @@ -62,7 +62,7 @@ (if (<= p 10) (list-ref '(zero one two three four five six seven eight nine ten) p) p))) - (string-append p-string " " (if (= p 1) "person" "people"))) + (string-append "up to " p-string " " (if (= p 1) "person" "people"))) (require txexpr racket/string) (define (textify x)