sub infix:<==>(Irrational $x, Irrational $y) {
    while True {
        (state $n)++;
        return $x[$n] == $y[$n];
    }
}