; 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)
OyBtZW1mcm9iCgooZGVmaW5lIChtZW1mcm9iIHN0cikKICAoZGVmaW5lIChmcm9iIGMpCiAgICAoaW50ZWdlci0+Y2hhciAoYml0d2lzZS14b3IgKGNoYXItPmludGVnZXIgYykgNDIpKSkKICAobGlzdC0+c3RyaW5nIChtYXAgZnJvYiAoc3RyaW5nLT5saXN0IHN0cikpKSkKCihkaXNwbGF5IChtZW1mcm9iIChtZW1mcm9iICJQcm9ncmFtbWluZyBQcmF4aXMiKSkpIChuZXdsaW5lKQ==