Signed-off-by: Jim Pryor <profjim@jimpryor.net>
# module LL = List_monad.T(List_monad);;
# LL.(run(plus (unit 1) (unit 2) >>= fun i -> plus (unit i) (unit(10*i)) ));;
- - : ('_a, int) LL.result = [[1; 10; 2; 20]]
+ - : ('_a, int) LL.result = \[[1; 10; 2; 20]]
# LL.(run(plus (unit 1) (unit 2) >>= fun i -> elevate L.(plus (unit i) (unit(10*i)) )));;
- - : ('_a, int) LL.result = [[1; 2]; [1; 20]; [10; 2]; [10; 20]]
+ - : ('_a, int) LL.result = \[[1; 2]; [1; 20]; [10; 2]; [10; 20]]