Infinite fibonacci sequence

let fibs = seq {
    let rec fibs (x: bigint) y = seq {
        let z = y + x
        yield z
        yield! fibs y z
    }

    yield! fibs (bigint 0) (bigint 1)
}