.PROGRAM pal()
        PARAMETER HAND.TIME = 0.5
        SPEED 100 ALWAYS
        m = 10
        h = 10
        dx = 10
        dy = 10
        MOVE safe
        OPEN
        BREAK
        FOR i = 0 TO m-2
            SET pick = SHIFT(p1 BY 0,0,h*(m-1-i))
            x = dx*(i MOD 3)
            y = dy*INT(i/3)
            z = 0
            SET place = SHIFT(p2 BY x,y,z)
            CALL p_p(pick, place)
        END

        SET pick = SHIFT(p1 BY 0,0,0)
        x = dx
        y = dy
        z = h
        SET place = SHIFT(p2 BY x,y,z)
        CALL p_p(pick, place)
        MOVE safe
.END