Untitled

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)