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

    define backmove()
        {
        halfturn();
        move();
        }

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

    define resta()
        {
        if( nextToABeeper )
            {
            pickbeeper();
            move();
            if( nextToABeeper )
                {
                pickbeeper();
                backmove();
                halfturn();
                resta();
                putbeeper();
                }
            else
                {
                backmove();
                putbeeper();
                halfturn();
                }
            }
        }

    program()
        {
        while( nextToABeeper )
            {
            ponMonton();
            resta();
            move();
            }
        ponMonton();
        backmove();
        turnleft();
        while( nextToABeeper )
            {
            ponMonton();
            resta();
            move();
            }
        backmove();
        turnoff();
        }
    }