Post top tier code

Can be yours or not, I just want to see something good.

Delimited continuations rule. Here's a top-tier demonstration of throwing away a continuation and producing a value of a totally different (to what the cont was expecting type):

#lang racket
(require racket/control)

(print
(string-join (list "Delimit"
(reset
(+ 10 (shift k "my anus"))))))