sub infix:<+>(Irrational $x, Irrational $y) {
    Irrational.new: gather while True {
        (state $n)++;
        take $x[$n] + $y[$n];
    }
}