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

Reply via email to