S" \ ]litnu[ =0 pud time @ + pud2 -1 ]nigeb[ rc epyt pud2 ! kcip 2 352202C5$ -d 3- 3 3 -3 d- $5C202253 2 pick ! 2dup type cr [begin] 1- 2dup + @ emit dup 0= [until] \ "S
Note that non-ascii characters in the above source code will be escaped (such as \x9f).