/prep7
*get,enum,elem,,count
*dowhile,enum
  *get,etyp,elem,elnext(0),attr,type
  *get,kop1,etyp,etyp,attr,kop1
  *get,enam,etyp,etyp,attr,enam
  keyo,etyp,1,(1<kop1)
  *if,enam,eq,236,then
    keyo,etyp,2,2*(1<kop1)	! nur fuer 236
  *endif
  esel,u,type,,etyp  
  *get,enum,elem,,count
*enddo
alls
etlis

/solu
anty,harm
harf,arg1