RosettaCodeData/Task/Create-a-two-dimensional-array-at-runtime/Icon/create-a-two-dimensional-array-at-runtime.icon

procedure main(args)
    nr := integer(args[1]) | 3  # Default to 3x3
    nc := integer(args[2]) | 3

    A := list(nr)
    every !A := list(nc)

    x := ?nr    # Select a random element
    y := ?nc

    A[x][y] := &pi
    write("A[",x,"][",y,"] -> ",A[x][y])
end