.flags escape;.flags overstrike;.flags break;.flags substitute
.define substitute /n/^8n^3
.define substitute /GMA/^8G^3
.define substitute /LAMB/^8L^3
.define substitute /m/^8m^3
.define substitute /+pi/^8p^3^>+^<
.define substitute /+-/+%__
.define substitute /dge/^>o^<
.define substitute /dee/^8d^3
.define substitute /-pi/^8p^3^>-^<
.define substitute /nbe/^8n^3^>^>%__^<^<^<e^>
.define substitute /ne/^8n^3^<e^>
.define substitute /nm/^8n^<m^>^3
.define substitute /nbm/^8n^3^>^>%__^<^<^<^8m^>^3
.define substitute /pi/^8p^3
.define substitute /delta/^8D^3
.define substitute /sig/^8s^3
.define substitute /a/^8_{^3
.define substitute /au/^8[^3
.define substitute /ad/^8]^3
.define substitute /omeg/^8W^3
.define substitute /theta/^8J^3
.define substitute /phi/^8f^3
.define substitute /alfa/^8a^3
.define substitute /beta/^8b^3
.define substitute /rho/^8r^3
.define substitute /SGMA/^8S^3
.define substitute /gamma/^8g^3
.define substitute /eee/^8e^3
.define substitute /pi+-/^8p^3^>+%__^<
.define substitute /chi2/^8x^>2^<^3
.define substitute /pi0/^8p^3^>o^<
.define substitute /pt/p^<T^>
.define substitute /eta/^8h^3
.define substitute /dst/^8Ds^3^<T^>  
.define substitute /ET/E^<T^>
.require "SYS$LIBRARY:GREEKMATH"