size=5x5x5
program 1
*start
    ; 数式計算とテープメモリのテスト
    x = 10
    y = 5
    z = (x + y) * 2 - 4 / 2
    mem[0] = z
    mem[1] = mem[0] + 1

    if carrying != NONE then goto *do_put

*do_get
    if check(FRONT) == MATERIAL && material(FRONT) == HEAVY then goto *take
    if find(HEAVY) then goto *walk
    turn RIGHT
    goto *start

*take
    get
    goto *start

*do_put
    if check(FRONT) == ORDER && order(FRONT) == PILLAR then goto *place
    if find(PILLAR) then goto *walk
    turn RIGHT
    goto *start

*place
    put
    goto *start

*walk
    go
    goto *start
endprogram

z=1
H4H4......
H4H4......
..........
..X?..X?..
....^.....
