{ filter.f: filters words outof binaries >=4 chars }

[^$d:$'A1->\$'Z>~@&\$'a1->\$'z>~@&@|]c:
0d:[d;1_=~][c;![c;![c;![c;![a:\@,,,a;,[c;!\%][d;,]#10,0 0 0 0]?%]?%]?%]?%]#