Y='s [ 10l ]'
doit(20Y)
goto(20,11,1)
doit(19t)
doit(L)
doit(s 19r 19l)
Z='[ 4u ] s 4s [ 4u ] s [ 4u ]'
doit(s R 3Z)
doit(2s R 2Z)
doit(s R Z)
doit(2Z)
doit(3s [ 4u ] R)
doit(2Z s)
goto(0,13,6)
W='2s 2u t s 2d'
doit(2W 2s 2u t 2d 2W 2s 2u t 2d)
doit(5W)
doit(s R 2W 2s 2u t 2d)
doit(2W 2s 2u t 2d s [ 2u ] s [ 2u ] s [ 2u ])
doit(R 2W 2s 2u t 2d 2W 2s 2u t 2d)
doit(2W 2s 2u t 2d)
doit(2W 2s 2u t 2d s R 2W 2s 2u t 2d)
goto(0,6,6)
doit(L s 2u [ t ] 2d W 2s 2u [ t ] 2d 2s 2u t 2s 2d s 2u)
goto(0,13,9)
X='r 23s 23t'
doit(t R 16s L 23s L 17s L 23s L L u [ 23s ] 4X)
doit(13X)
beginxyz;item=6