26 lines
250 B
Plaintext
26 lines
250 B
Plaintext
@ 0
|
|
args 0
|
|
size
|
|
#exec std/string/array/rev.lb
|
|
|
|
|
|
args 1
|
|
dup
|
|
@ 1
|
|
kjz 2
|
|
args 1
|
|
#exec std/rot.lb
|
|
#exec std/rot.lb
|
|
#expr -
|
|
jmp 1
|
|
|
|
@ 2
|
|
pop
|
|
;#exec std/string/array/rev.lb ; Finish getting arguments
|
|
|
|
#expr +
|
|
#exec std/rev.lb
|
|
pop
|
|
size
|
|
quit
|