Paste: crazy shufflers

: - ( 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 ;

Annotation: .

: ---> ( w x y z -- x y z w ) roll ;
: <--- ( w x y z -- z w x y ) -roll ;

Annotation: more

: -] ( x quot -- ) keep ; inline
: --] ( x quot -- ) 2keep ; inline
: ---] ( x quot -- ) 3keep ; inline

: )- ( x quot -- ) dip ; inline
: )-- ( x y quot -- ) 2dip ; inline
: )--- ( x y z quot -- ) 3dip ; inline

New Annotation