true(%stdin)(r)file 127 string readline pop 0 1 40{exch(1)search{dup 0 get 169
mul 56 idiv 54 sub exch length add dup 91 eq{false 4 index 4 index( )32}if 4
index{3 index 22 mod 19 idiv 7 mul add}if 2 copy 0 exch put pop print exch
pop}if}for