哪位skill大神可以给我讲讲下面这个脚本

cst00

/* demo.il - this file is used for a walkthrough of the
* SKILL Development Environment.
*/
/*******************************************************
* myFunction1 - This function must
*         Count from 1 to 10000.
*         Return a list of numbers from 1 to 1000 in any order.
********************************************************/
(procedure myFunction1()
    let((x y z myList)
        for( i 1 10000
           myList = myFunction2(i)
        )
        myList
    )
)
/*******************************************************
* myFunction2 - This function must
*         Print a starting message at the 1st object.
*         Print an ending message at the 1000th object.
*         return a list of numbers less than 1000 in any order.
********************************************************/
(procedure myFunction2(object myList)
    if(myTest(object)
        then printf("Starting with object %d...\n" object)
    )
    if(object == 1000
        then printf("Ending with object %d...\n" object)
    )
    if(object < 1000
        then append(myList ncons(object ))
        else myList
    )
)
/*******************************************************
* myTest - This function must
*         return t if object equals one.
********************************************************/
(procedure myTest(object)
    if(object == 10
        then t
        else nil
    )

hccaiwh

pcb里面的？