// Stress test for RC system WITH shared references
// Forces rc>1 path by keeping aliases

fn processWithAlias(n: Int): Int = {
    let nums = List.range(1, n)
    let alias = nums  // This increments rc, forcing copy path
    let _len = List.length(alias)  // Use the alias

    // Now nums has rc>1, so map must allocate new
    let doubled = List.map(nums, fn(x: Int): Int => x * 2)
    let filtered = List.filter(doubled, fn(x: Int): Bool => x > n)
    let reversed = List.reverse(filtered)
    List.length(reversed)
}

fn main(): Unit = {
    Console.print("=== RC Stress Test (Shared Refs) ===")

    // Run multiple iterations with shared references
    let result1 = processWithAlias(100)
    let result2 = processWithAlias(200)
    let result3 = processWithAlias(500)
    let result4 = processWithAlias(1000)

    Console.print("Completed 4 chains with shared refs")
}