: - ( x -- ) drop ;
: -- ( x x -- ) 2drop ;
: --- ( x x x -- ) 3drop ;
: + ( x -- x x ) dup ;
: ++ ( x y -- x y x y ) 2dup ;
: +++ ( x y z -- x y z x y z ) 3dup ;
: -| ( x y -- y ) nip ;
: --| ( x y z -- y ) 2nip ;
: ^- ( x y -- x y x ) over ;
: ^-- ( x y z -- x y z x ) pick ;
: --> ( x y z -- y z x ) rot ;
: <-- ( x y z -- z x y ) -rot ;