(%stdin)(r)file 80 string readline pop dup length -1 0{1 1 3 index length 3
index sub{3 copy getinterval = pop}for pop}for