str UNIX
dup
setvar unix
int 0
at
getvar unix
int 1
at
getvar unix
int 2
at
getvar unix
int 3
at
list 4
dstack2 A
dup
concat
sort
dstack2 B