#lang racket

(define start '(166 210 154 166 110 214 100 100 162 190 180 162 152 204 150 144 158 104 180 124 158 138 102 138 168 98 178 32 -4 142))

(define d (map - start))
(define x (map (curry bitwise-xor 20) d))
(define dd (map - x))
(define y (map (curry + 20) dd))
(define z (map (λ (x) (/ x 2)) y))
(define a (map (curry bitwise-xor 42) z))
(define b (map integer->char a))
(define c (list->string b))
c
