127{3{(%stdin)(r)file 20 string readline pop}repeat 0 3 2 index length 1 sub{0
2 1 4{index 2 index 3 getinterval{add 2 mul}forall}for 263 mod 13
mod(0.2856831479)exch 1 getinterval print pop}for()=}repeat
Note that non-ascii characters in the above source code will be escaped (such as \x9f).