1.EQ 2sdefine << %{ < back 20 < }% 3sdefine >> %{ > back 20 > }% 4 5sdefine dot %accent "\fR\(a.\fP"% 6sdefine dotdot %accent "\fR\(ad\fP"% 7sdefine vec %accent {up 52 "\s[\En[.s]/2u]\(->\s0"}% 8sdefine dyad %accent {up 52 "\s[\En[.s]/2u]\(<>\s0"}% 9 10sdefine inf %"\s[\En[.s]*13u/10u]\v'12M'\(if\v'-12M'\s0"% 11 12sdefine cdot %type "binary" \(md% 13.EN 14