bewerking=bewerking1.proc
!if $taal=nl
    nivo_title=Vermenigvuldigen met &eacute;&eacute;n variabele <br>en dus werken met machten.
!else
    nivo_title=Multiplication with one variable.
!endif
sommen=$empty
R=$graad
    !for n=1 to $aantal_sommen
	!if $graad =0
	    R=$n
	!endif    
	!if $R = 1
	    !if $negatief=1		
		P=!randitem -1,1
		Q=!randitem -1,1
		A=!randint 2,30
		B=!randint 2,30
		A=$[$P*$A]
		B=$[$Q*$B]
	    !else
		A=!randint 2,30
		B=!randint 2,30
	    !endif    
	    a$n=!randitem a,b,c,d,f,h,n,m
	    vergelijking=($A)*$(a$n)*($B)*$(a$n)
	    som$n=$A\cdot $(a$n) \times $B\cdot $(a$n)
	    varlist$n=$(a$n)
	    letterlijk$n=$A*$(a$n)*$B*$(a$n)
	!endif
	!if $R = 2  
	    !if $negatief=1
		pm=!randitem +,-		
		mp=!randitem +,-		
		P=!randitem -1,1
		Q=!randitem -1,1
		S=!randitem -1,1
		A=!randint 3,8
		B=$[$A $pm 1]
		C=$[$A $mp 2]
		A=$[$P*$A]
		B=$[$Q*$B]
		C=$[$S*$C]
	    !else
		pm=!randitem +,-		
		mp=!randitem +,-		
		A=!randint 3,8
		B=$[$A $pm 1]
		C=$[$A $mp 2]
	    !endif    
	    a$n=!randitem a,b,c,d,f,h,n,m
	    vergelijking=($A)*$(a$n)*($B)*$(a$n)*($C)*$(a$n)
	    som$n=$A\cdot $(a$n) \times $B\cdot $(a$n) \times $C\cdot $(a$n)
	    varlist$n=$(a$n)
	    letterlijk$n=$A*$(a$n)*$B*$(a$n)*$C*$(a$n)
	!endif
	!if $R >2 
	    !if $negatief=1
		pp=!randitem +,-
		pm=!randitem +,-		
		mp=!randitem +,-		
		A=!randint 3,8
		B=$[$A $pm 1]
		C=$[$A $mp 2]
		D=$[$B $pp 1]
		P=!randitem -1,1
		Q=!randitem -1,1
		V=!randitem -1,1
		A=$[$P*$A]
		B=$[$Q*$B]
		C=$[$V*$C]
	    !else
		pp=!randitem +,-
		pm=!randitem +,-		
		mp=!randitem +,-		
		A=!randint 3,8
		B=$[$A $pm 1]
		C=$[$A $mp 2]
		D=$[$B $pp 1]
	    !endif    
	    a$n=!randitem a,b,c,d,f,h,n,m
	    keuze=!randitem 0,1,2
	    varlist$n=$(a$n)
	    !if $keuze=1
		vergelijking=($A)*$(a$n)*($B)*$(a$n)*($C)*$(a$n)*($D)*$(a$n)
		som$n=$A\cdot $(a$n) \times $B\cdot $(a$n) \times $C\cdot $(a$n) \times $D\cdot $(a$n)
		letterlijk$n=$A*$(a$n)*$B*$(a$n)*$C*$(a$n)
	    !else
		!if $keuze=2
		    vergelijking=$(a$n)*($A)*$(a$n)*($B)*$(a$n)*($C)*$(a$n)*($D)*$(a$n)*$(a$n)
		    som$n=$(a$n)\times $A\cdot $(a$n) \times $B\cdot $(a$n) \times $C\cdot $(a$n) \times $D\cdot $(a$n) \times $(a$n)
		    letterlijk$n=$(a$n)*$A*$(a$n)*$B*$(a$n)*$C*$(a$n)*$(a$n)	    
		!else
		    c=!randitem 2,3,4,5,6,7
		    vergelijking=($A)*$(a$n)*($B)*$(a$n)^$c*($C)*$(a$n)*($D)*$(a$n)
		    som$n=$A\cdot $(a$n) \times $B\cdot $(a$n)^{$c} \times $C\cdot $(a$n) \times $D\cdot $(a$n)
		    letterlijk$n=$A*$(a$n)*$B*$(a$n)^$c*$C*$(a$n)		
		!endif
	    !endif	
	!endif
	sommen=!append line S=$vergelijking to $sommen
	sommen=!append line printtex(S) to $sommen
    !next n        

oplossingen=!exec pari $sommen
r=1
!for n=1 to $aantal_sommen
    GOED$n=!line $r of $oplossingen
    goed$n=!line $[$r+1] of $oplossingen
    r=$[$r+2]
!next n