Untitled
12345678
use lib ".";
use Monads;
multi div(Int $a, 0 --> Maybe[Int]) { Nothing Int }
multi div(Int $a, Int $b --> Maybe[Int]) { Just $a div $b }
sub incr(Int $a) { $a + 1 }
say (&incr =>> &div).(4, 2)
Raku
INFO