遭遇bug

这几天编了一个求OPE的程序，发现了两个Mathematica 5的bug：
1. Goto语句
Mathematica中自带的例子：
q = 2; Label[begin]; Print[q]; q += 1; If[q < 6, Goto[begin]]
这样写成一排，可以运行，但是如果这样写：
q = 2;
Label[begin];
Print[q];
q += 1;
If[q < 6, Goto[begin]]
即写成几行的形式，就不行了，总是说找不到Label，而通常这两种写法都应该时一样的。平时用的时候也总是说找不到Label。

2. 求导的问题 如果对三阶或三阶以上导数的函数求导，出现问题，而低于三阶就没问题：

也可能是我用错了，如果谁知道，告诉我一下。

另外：

求OPE的程序终于出炉了，有些新优点，终于可以不用传说中的OPEdef.m的那个包了！