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 ( 4 3 ) set
0 4 repeat ( 4 2 ) set
pstack
"End " input