+: readchar ( -- char-atom )
+ inc-parse-idx
+ inc-parse-idx
+
+ S" newline" str-equiv? if '\n' character-type exit then
+ S" space" str-equiv? if bl character-type exit then
+ S" tab" str-equiv? if 9 character-type exit then
+
+ nextchar character-type
+
+ inc-parse-idx
+;
+