stdin slurp-fid dup 1 [do] 2dup type [loop]