Reader: obj
%OSDvisibility SkipInternal
buffer: ref String.string
pos: var integer
ch: var char
nextCh:
out ch: var Char
skipWhiteSpace:
n: var integer
--"skip: ".print
--put(ch)
start: