campo-sirio/include/alex.alx

: 2DROP ( n1 n2 -- ) 
  DROP DROP
;

: 2DUP ( n1 n2 -- n1 n2 n1 n2 ) 
  OVER OVER 
;

: NIP ( n1 n2 -- n2 ) 
  SWAP DROP 
;

: -ROT ( n1 n2 n3 -- n3 n1 n2 ) 
  ROT ROT 
;

: TUCK ( n1 n2 -- n2 n1 n2 ) 
  SWAP OVER 
;

: INCR ( a1 -- ) 
  1 SWAP +! 
;