中国古代算书《张丘建算经》中有个“百鸡问题”：今有鸡翁一，值钱五；鸡母一，值钱三；鸡雏三，值钱一。凡百钱，买鸡百只。问鸡翁、母、雏各几何？
for循环，程序如下：
to bjbq
for "I 1 20[for "J 1 33[if 100=(:I*5+:J*3+(100-:I-:J)/3))(pr :I :J 100-:I-:J)]]
end
或者
to bjbq
for "I 1 20[for "J 1 33[for "K 1 100[if (and 100=(:I+:J+:K) \
100=(:I*5+:J*3+:K/3))(pr :I :J :K)]]]
end
第二个程序运行比第一个程序费时。
运行结果如下：
bjbq
4 18 78
8 11 81
12 4 84 | 
