the calculation. That is, the desired behavior should be like this:
# lift ( + ) (lift ( / ) (unit 20) (unit 2))
- (lift ( * ) (unit 2) (unit 3)) 0;;
+ (lift ( * ) (unit 2) (unit 3)) 0;;
- : int * int = (16, 3)
Here, `lift` is the function that uses `bind` to prepare an ordinary