include ..\Utilitys.tlhy

0 ( 4 3 2 ) dim pstack

5432 ( 4 3 2 ) set pstack

( 4 3 2 ) get ?

( 4 3 ) get %row !row
$row ?

$row 1 2 set !row
$row ?

$row ( 4 3 ) set
0 4 repeat ( 4 2 ) set

pstack

"End " input