0[/00000 71 /03 58 24 21 18 52 40 /01(P?\016]`T\032\('U-9bA\234){}forall 471
711 701 611 105 491]{(x = )print 1 index 10 div =only(, y = )print 1.1051707 2
index exp 9 string cvs dup length 5 gt{0 6 getinterval}if print = 1 add}forall
Note that non-ascii characters in the above source code will be escaped (such as \x9f).