% $Id: Pred2ListMonadTest.oz,v 1.1 2007/11/14 02:11:23 leavens Exp leavens $
\insert 'Pred2ListMonad.oz'
declare
local [ListMonad] = {Module.link ['ListMonad.ozf']}
in
   Bind = ListMonad.bind
end
Out2
MyList=[A 5 1 B 4 0 6]
MyFun=fun {$ X} X>2 end
thread Out2={Bind MyList {Pred2ListMonad MyFun}}
end
{Browse Out2}
{Delay 2000}
A=7
{Delay 4000}
B=1