FUNCTION func:BOOL;
((c:=c+1)-1);
 (c:=c+1);
 ((c:=c-1)+1);
 (c:=c-1);
 p := ( ((p:=p+1)-1) )^;
 p := ( (p:=p+1) )^;
 p := ( ((p:=p-1)+1) )^;
 p := ( (p:=p-1) )^;
 p := ((p:=p+1)-1)^;
 p := (p:=p+1)^;
 p := ((p:=p-1)+1)^;
 p := (p:=p-1)^;