/#
//
TE *U HERE\*C
TE Q=T\*C
TE R=U\*C
% Enter Mode>%E %\%\%
TE *U HERE\*C
TE O=(Q-T)\*C
TE P=(R-U)\*C
TE P#%OP={P#%OP__
TE (T-Q)*(T-Q)+(U-R)*(U-R)\*C
<
%      %*%%
/#