1 1 195{13{0 1 index 9 string cvs{12 mod rrand dup 10 mul srand mul add}forall 1 srand 2 copy ne{add}if}repeat ne{[/8813200023188/8836886388]count 2 mod get}if =}for
Note that non-ascii characters in the above source code will be escaped (such as \x9f).