\START92\
\COMMENT=
\NAME=secufreq
\FILE=SECUFREQ.89P
()
Prgm
Local  k,l
DelVar  list4,list5
seq(\(-)\0.5+x,x,0,int(list2[dim(list2)])+1,1)\->\list4

0\->\list4[1]

seq(0,x,0,int(list2[dim(list2)])+1,1)\->\list5

For  k,1,dim(list1),1
int(list1[k])+2\->\l

list5[l]+1\->\list5[l]

EndFor
list5[2]\->\list5[1]

EndPrgm

\STOP92\