(define letter-to-number
  (lambda (letter)
    (if (eq? letter 'A)
	4.0
	(if (eq? letter 'B+)
	    3.5
	    3.0))))
(letter-to-number 'A)