do ( quots -- result )


Vocabulary
monads

Inputs
quotsan object


Outputs
resultan object


Definition
USING: combinators kernel sequences ;

IN: monads

: do ( quots -- result )
unclip [ ( -- mvalue ) call-effect ] curry dip [ bind ] each
;