function seqn(expv:expvtype): longinteger; var i,j: integer; s: expvtype; seqnumber :longinteger; begin end;