$JOB
.DEL P:HAE???.BK,HAE???.IF
.SQ P:/O
.MUNG P:HAINCL,P:HAELOG.FT
.MUNG P:HAMAS,P:HAELOG.IF
.R F4
*P:HAELOG<P:HAELOG.IF
.MUNG P:HAINCL,P:HAEMAR.FT
.MUNG P:HAMAS,P:HAEMAR.IF
.R F4
*P:HAEMAR<P:HAEMAR.IF
.MUNG P:HAINCL,P:HAEMKH.FT
.MUNG P:HAMAS,P:HAEMKH.IF
.R F4
*P:HAEMKH<P:HAEMKH.IF$
.DEL P:HAEMKH.IF,HAEMKH.BK
.MUNG P:HAINCL,P:HAENYA.FT
.MUNG P:HAMAS,P:HAENYA.IF
.R F4
*P:HAENYA<P:HAENYA.IF
.MUNG P:HAINCL,P:HAENYX.FT
.MUNG P:HAMAS,P:HAENYX.IF
.R F4
*P:HAENYX<P:HAENYX.IF
.MUNG P:HAINCL,P:HAEOPN.FT
.MUNG P:HAMAS,P:HAEOPN.IF
.R F4
*P:HAEOPN<P:HAEOPN.IF
.MUNG P:HAINCL,P:HAEPAL.FT
.MUNG P:HAMAS,P:HAEPAL.IF
.R F4
*P:HAEPAL<P:HAEPAL.IF
.MUNG P:HAINCL,P:HAEPFL.FT
.MUNG P:HAMAS,P:HAEPFL.IF
.R F4
*P:HAEPFL<P:HAEPFL.IF
.MUNG P:HAINCL,P:HAEPLA.FT
.MUNG P:HAMAS,P:HAEPLA.IF
.R F4
*P:HAEPLA<P:HAEPLA.IF
.DEL P:HAE???.BK,HAE???.IF
.SQ P:/O
.MUNG P:HAINCL,P:HAEPLO.FT
.MUNG P:HAMAS,P:HAEPLO.IF
.R F4
*P:HAEPLO<P:HAEPLO.IF
.DELETE P:HAEPRI.BK,HAEPRI.IF
.MUNG P:HAINCL,P:HAEPRI.FT
.MUNG P:HAMAS,P:HAEPRI.IF
.DELETE P:HAEPRI.BK
.R F4
*P:HAEPRI<P:HAEPRI.IF
.DEL P:*.BK,*.IF
.SQ P:/O
$END
                   