examples/upper-case.rkt
#lang racket/base

(provide upper-case)
(define (upper-case str)
  (string-upcase str))