do c=peek(0):if c>48c=106-c
?chr$(c);loop