[racket] a little joke module: UPPERCASE.plt

Thought this might be amusing to folks:

;;;;;;;;;;;;;;;;;;;;;;;;;
#lang planet dyoo/UPPERCASE at-exp racket
"hi"
(define (f x)
  (* x x))
;; The composition of languages should work with
;; tools like at-exp.
@string-append{
hi, this is a test!
Hello world!
The square of 42 is @(number->string @f[42]).
This acts like a regular language,
but with all the
string literals turned uppercase.}
;;;;;;;;;;;;;;;;;;;;;;;;;


This is not heavily tested.  I just wanted to see that
make-meta-reader does the language composition the way I expected; to
my delight, it does.   :)