[plt-scheme] Scheme grade calculator

Does anyone know of a grade calculator written in scheme. I'm particularly looking for one that would include the assignments name, the total points the assignment is worth, and the weight of the assignment. 

For example I'm looking for something that could do this:

(define assignment (make-assignment "Test #1" 30 10))

(assignment-name assignment)    =  "Test #1"
(assignment-out-of assignment)    =  30
(assignment-weight assignment)   = 10
(assignment? assignment)           = #t



      
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20100426/c68c9bcd/attachment.html>