(define x'(41 40 117 115 101 32 115 114 102 105 45 49 51 41 40 100 101 102 105 110 101 32 120 49 34 40 100 101 102 105 110 101 32 120 39 34 41 40 100 101 102 105 110 101 32 120 50 40 120 45 62 115 116 114 105 110 103 32 120 41 41 40 100 101 102 105 110 101 32 120 51 40 108 105 115 116 45 62 115 116 114 105 110 103 40 109 97 112 32 105 110 116 101 103 101 114 45 62 99 104 97 114 32 120 41 41 41 40 100 101 102 105 110 101 32 121 40 115 116 114 105 110 103 45 97 112 112 101 110 100 32 120 49 32 120 50 32 120 51 41 41 40 100 105 115 112 108 97 121 40 115 116 114 105 110 103 45 97 112 112 101 110 100 32 121 34 59 34 40 115 116 114 105 110 103 45 114 101 118 101 114 115 101 32 121 41 41 41))(use srfi-13)(define x1"(define x'")(define x2(x->string x))(define x3(list->string(map integer->char x)))(define y(string-append x1 x2 x3))(display(string-append y";"(string-reverse y)));)))y esrever-gnirts(";"y dneppa-gnirts(yalpsid())3x 2x 1x dneppa-gnirts(y enifed()))x rahc>-regetni pam(gnirts>-tsil(3x enifed())x gnirts>-x(2x enifed()"'x enifed("1x enifed()31-ifrs esu())14 14 14 121 23 101 511 411 101 811 101 411 54 301 011 501 411 611 511 04 43 95 43 121 23 001 011 101 211 211 79 54 301 011 501 411 611 511 04 121 79 801 211 511 501 001 04 14 14 15 021 23 05 021 23 94 021 23 001 011 101 211 211 79 54 301 011 501 411 611 511 04 121 23 101 011 501 201 101 001 04 14 14 14 021 23 411 79 401 99 26 54 411 101 301 101 611 011 501 23 211 79 901 04 301 011 501 411 611 511 26 54 611 511 501 801 04 15 021 23 101 011 501 201 101 001 04 14 14 021 23 301 011 501 411 611 511 26 54 021 04 05 021 23 101 011 501 201 101 001 04 14 43 93 021 23 101 011 501 201 101 001 04 43 94 021 23 101 011 501 201 101 001 04 14 15 94 54 501 201 411 511 23 101 511 711 04 14('x enifed(
Note that non-ascii characters in the above source code will be escaped (such as \x9f).