pad dup 25 stdin read-file + dup 1 [do] 2dup type [loop]