plt-racket: a test