<experiment> ( word -- quot )


Vocabulary
tools.test.private

Inputs
wordan object


Outputs
quotan object


Definition
USING: accessors effects generalizations kernel sequences
sequences.generalizations ;

IN: tools.test.private

MACRO: <experiment> ( word -- quot )
[ stack-effect in>> length dup ] [ name>> experiment-title ]
bi [ [ [ ndup ] curry ] dip [ narray ] curry compose ] dip
[ prefix ] curry compose ;