;  :: >DIGIT  48 + 58 .<; 7 + 91 .<; 6 + ;
;  :: .DIGIT  1- >R 3C@ U/MOD >DIGIT R@ C! R> ;
;  :: .DIGITS  .DIGIT OVER 0<>ME NIP ;
;  :: ?U  3@ x:100 AND 0=; ABS ;
;  :: .-?  .0>= 2* 1- ?U TUCK * ;
;  :: .SIGN  ?U SWAP 0>=; 1- 45 OVER C! ;
;  : .S  >R .-? R@ .DIGITS .SIGN 1- R> OVER - 1- OVER C! ;
;  : (.)  PAD .S .C@++ TYPE ;
;  :: GETC  SWAP .C@++ ROT 1- SWAP ;
;  :: BAD  7 ERR [
;  :: DOEND  4@ @ (.) CELL 4+! ;
;  :: DODOT  2@ 8 << 2! ;
;  :: DOBASE  2@ DUP 3C! 8 >> 2! ;
;  :: DOB  2 3C! DOEND 2 n;
;  :: DOD  DOEND 2 n;
;  :: DOO  8 3C! DO END 2 n;
;  :: DOU  3@ x:100 OR 3! ;
;  :: DOX  16 3C! DOEND 2 n;
;  CREATE TABLE  <cfa0> h, <cfa1> h, <cfa2> h, ...
;  :: ?SP  32 .<>; DROP 0 ;;
;  :: ?+  43 .<>; DROP 1 ;;
;  :: ?-.  45 .<; 46 .>; 43 - ;;
;  :: ?0-9  48 .<; 57 .>; 48 - 2C@ 10 * + 2C! 2 n;
;  :: ?:  58 .<>; DROP 4 ;;
;  :: ?_  95 .<>; DROP 5 ;;
;  :: ?a-z  97 .<; 122 .>; 91 - ;;
;  :: MAP  ?SP ?+ ?-. ?0-9 ?: ?_ ?a-z BAD [
;  :: HANDLE  MAP 2 << TABLE + H@ SYSTEM + EXECUTE ;
;  :: S0  GETC HANDLE ME [
;  :: +FRAME  10 -ROT 0 -ROT ;
;  :: -FRAME  ROT DROP ROT DROP ;
;  :: _%  +FRAME {{ S0 }} -FRAME ;
;  :: ?%  37 .<>; DROP _% ;;
;  :: 1CHAR  .0=;; GETC ?% EMIT ;
;  :: (_TYPE) 1CHAR ME ;
;  : _TYPE  SP@ CELL + -ROT (_TYPE) 2 DROPS SP! DROP ;