CORE
: tokens INLINE BEGIN ASPACE TOKEN DUP NOT
        IF TOKEN_BUFFER @ TYPE CRET ENDIF
     END 0 LINE_BUFFER @ ! ;
10 ARRAY A1
10 ARRAY A2
10 ARRAY A3
: LOOK PRINT_MODE @ DUP 1 OR PRINT_MODE ! SWAP ."  ( " 9 0 DO DUP [I]@ . LOOP DROP ."  ) " PRINT_MODE ! ;
: OUTCHAR PRINT_MODE @ DUP 1 OR PRINT_MODE ! SWAP ECHO PRINT_MODE ! ;
: A1LOOK A1 LOOK ;
: A2LOOK A2 LOOK ;
: A3LOOK A3 LOOK ;
: A1SET 9 0 DO I> A1 [I]! LOOP ;
: A2SET 9 0 DO I> I> + A2 [I]! LOOP ;
: A3SET 9 0 DO I> 3 + A3 [I]! LOOP ;
: VectorAdd 0 DO 2OVER [I]@ 2OVER [I]@ + OVER [I]! LOOP ;
: VectorSub 0 DO 2OVER [I]@ 2OVER [I]@ - OVER [I]! LOOP ;
: VectorMul 0 DO 2OVER [I]@ 2OVER [I]@ * OVER [I]! LOOP ;
: VectorDiv 0 DO 2OVER [I]@ 2OVER [I]@ / OVER [I]! LOOP ;
A1SET 
A2SET
A3SET
A3 A2 A1 9 VectorAdd A3LOOK 43 OUTCHAR A2LOOK 61 OUTCHAR A1LOOK 13 OUTCHAR
A3 A2 A1 9 VectorSub A3LOOK 45 OUTCHAR A2LOOK 61 OUTCHAR A1LOOK 13 OUTCHAR
A3 A2 A1 9 VectorMul A3LOOK 42 OUTCHAR A2LOOK 61 OUTCHAR A1LOOK 13 OUTCHAR


