+ delim? false = if drop false then
+
+ pop-parse-idx
+;
+
+: character? ( -- bool )
+ nextchar [char] # <> if false exit then
+
+ push-parse-idx
+ inc-parse-idx
+
+ nextchar [char] \ <> if pop-parse-idx false exit then
+
+ inc-parse-idx
+
+ S" newline" str-equiv? if pop-parse-idx true exit then
+ S" space" str-equiv? if pop-parse-idx true exit then
+ S" tab" str-equiv? if pop-parse-idx true exit then
+
+ charavailable? false = if pop-parse-idx false exit then
+
+ pop-parse-idx true
+;
+
+: pair? ( -- bool )
+ nextchar [char] ( = ;
+
+: string? ( -- bool )
+ nextchar [char] " = ;
+
+: initial? ( -- bool )
+ nextchar [char] A >= nextchar [char] Z <= and if true exit then
+ nextchar [char] a >= nextchar [char] z <= and if true exit then
+ nextchar [char] * = if true exit then
+ nextchar [char] / = if true exit then
+ nextchar [char] > = if true exit then
+ nextchar [char] < = if true exit then
+ nextchar [char] = = if true exit then
+ nextchar [char] ? = if true exit then
+ nextchar [char] ! = if true exit then