双星
-- 51: 表明身分 --
pickup s
a:
mem1 = calc mem1 + 1
if w == nothing:
write mem1
step s
drop
endif
jump a