!set n=$teller
!if $graad=0
    R=$teller
!else
    R=$graad
!endif        
wims_texsize=+4
varlist=$empty
arglist=$empty
varcnt=0
afrondingsfactor=0
woordmax=40
complex=1
plaatje=0
bewerking=common/number.proc

!if $R=1
    k=0
    num=!randint 2,16
    lijst=!record $num of nivo/data4
!endif

!if $R=2
    k=!randitem 1,2,3,4
    num=!randint 1,16
    lijst=!record $num of nivo/data4
!endif

!if $R=3
    k=!randitem 1,2,3,4,5
    num=!randint 1,16
    lijst=!record $num of nivo/data4
!endif    

!if $R>3
    k=!randitem 1,2,3,4,5
    num=!randint 1,16
    lijst=!record $num of nivo/data4
!endif

somtekst$n=!record 9 of lang/remarks.$taal
lijst=!replace internal @ by , in $lijst
C=!item 2 of $lijst
!if $[1*$C]=1
    C= \pi \cdot i
!else    
    C=!exec pari printtex($C)
    C=$C \cdot \pi \cdot i
!endif
opgave$n=e^{$C}\,\,
GOED$n=!item 1 of $lijst
goed$n=!texmath $(GOED$n)

!exit    
