(use srfi-13)#0=(format #t "(use srfi-13)~a;~a)31-ifrs esu(" #1=(with-output-to-string (lambda () (write* '#0#))) (string-reverse #1#));))#1# esrever-gnirts( )))#0#' *etirw( )( adbmal( gnirts-ot-tuptuo-htiw(=1# "(use srfi-13)a~;a~)31-ifrs esu(" t# tamrof(=0#)31-ifrs esu(
Note that non-ascii characters in the above source code will be escaped (such as \x9f).