class program
    {
    define turnright()
        {
        iterate(3)
            turnleft();
        }

    define halfturn()
        {
        turnleft();
        turnleft();
        }

    define recogeMonton()
        {
        while( nextToABeeper )
            pickbeeper();
        }

    define caminaAPared()
        {
        while( frontIsClear )
            move();
        }

    define colocaMonton()
        {
        while( anyBeepersInBeeperBag )
            putbeeper();
        }

    define recogePila()
        {
        while(nextToABeeper)
            {
            recogeMonton();
            if( frontIsClear )
                move();
            }
        halfturn();
        caminaAPared();
        colocaMonton();
        }

    program()
        {
        turnright();
        while( nextToABeeper )
            {
            turnleft();
            recogePila();
            turnleft();
            if( frontIsClear )
                move();
            else
                turnoff();
            }
        turnoff();
        }
    }