#!perl -apl sub n{$_[0]**2+$_[1]**2}$c=77;eval'$'.(chr$c++)."=$_-$F[$c%2]"for@F;$_=n($x=$R*($u=n$O,$P)-$P*($v=n$Q,$R),$y=$O*$v-$Q*$u)