20 lines
212 B
Text
20 lines
212 B
Text
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
|