RosettaCodeData/Task/Create-a-two-dimensional-array-at-runtime/Toka/create-a-two-dimensional-array-at-runtime-2.toka

5 5 2D-array >r             #! Create an array and save the pointer to it
10 2 3 r@ 2D-put-element    #! Set element 2,3 to 10
2 3 r@ 2D-get-element       #! Get the element at 2,3
r> drop                     #! Discard the pointer to the array