If you are just working with bytes, maybe you do not need to 'print' or 'symbolize'...
: (in "test.txt" (while (rd 1) (wr @))) hi�theRE:�how are you -> 10 ..or filtering for graphic ascii and everything else to space... : (setq E '(let (C NIL) (in "test.txt" (while (rd 1) (setq C @) (if (and (< 32 C) (> 127 C)) (wr C) (wr 32)))))) : (eval E) hi theRE: how are you -> 32 .. channeling to a file : (out "chars.txt" (eval E)) -> 32 : (call 'cat "chars.txt") hi theRE: how are you -> T /Lindsay
