1 2load_package scope; 3 4optimize z:=a,z:=-z; 5 6optimize z:=a,z:=z; 7 8optimize z:=a,z:=1-1-z; 9 10optimize z:=a,z:=z**2; 11 12optimize z:=a,z:=-z**2; 13 14end; 15