Optimize parsing words

blk/446

@@ -3,8 +3,8 @@
 
 : (parsec)          ( a -- n f )
     ( apostrophe is ASCII 39 )
-    DUP C@ 39 = NOT IF 0 EXIT THEN      ( a 0 )
+    DUP C@ 39 = OVER 2+ C@ 39 = AND     ( a f )
-    DUP 2+ C@ 39 = NOT IF 0 EXIT THEN   ( a 0 )
+    NOT IF 0 EXIT THEN   ( a 0 )
     ( surrounded by apos, good, return )
     1+ C@ 1                             ( n 1 )
 ;

blk/447

@@ -2,8 +2,7 @@
 : _            ( c -- n )
     ( '0' is ASCII 48 )
     48 -
-    DUP 0< IF EXIT THEN                 ( bad )
+    DUP 0< ( bad ) OVER 10 < ( good ) OR IF EXIT THEN
-    DUP 10 < IF EXIT THEN               ( good )
     ( 'a' is ASCII 97. 59 = 97 - 48 )
     49 -
     DUP 0< IF EXIT THEN                 ( bad )

blk/449

@@ -2,8 +2,7 @@
 : _            ( c -- n )
     ( '0' is ASCII 48 )
     48 -
-    DUP 0< IF EXIT THEN                 ( bad )
+    DUP 0< ( bad ) OVER 2 < ( good ) OR IF EXIT THEN
-    DUP 2 < IF EXIT THEN                ( good )
     ( bad )
     255 -
 ;