PRINT_MODE DUP @ 1 OR SWAP !
: .S DUP 'S S0 @ 4- DO I> @ . -4 +LOOP DROP ;
: C.S DUP 'S S0 @ 4- DO I> C@ . -1 +LOOP DROP ;
1 2 3 4 .S
1 2 3 4 C.S
