: a for 30. do c" *apple"1+ j i + 30 mod 1+ dup 6 < * - 1 type loop cr next ;
pad dup 5 stdin read-file + evaluate a