(%stdin)(r)file 25 string readline pop dup{pop dup =}forall