; memfrob

(define (memfrob str)
  (define (frob c)
    (integer->char (bitwise-xor (char->integer c) 42)))
  (list->string (map frob (string->list str))))

(display (memfrob (memfrob "Programming Praxis"))) (newline)