10{[/a[(%stdin)(r)file 99 string readline{(:)search pop cvi def cvx exec 0 1
count 5 sub{-1 roll}for]>>begin 0{{count -1 roll dup : eq{exit}if dup : le{a{1
index add dup where{pop pop}{exch 2 copy def}ifelse}forall}if pop}loop :{dup
load dup 0 eq{exit}if 2 copy sub =only( )print}loop pop}stopped{/-}if = end
clear}if}repeat
Note that non-ascii characters in the above source code will be escaped (such as \x9f).