Racket code for teaching purposes