#!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)<n(2*$S*($d=$O*$R-$P*$Q)-$x,2*$T*$d-$y)^1
Note that non-ascii characters in the above source code will be escaped (such as \x9f).