
!if $coef=$empty
 error=$error no_coef
 !exit
!endif

!if $[$coef]=0 or ($character>0 and / notin $coef and $[($coef)%$character]=0)
 error=$error mult_zero
 !exit
!endif

!if $[$coef]=1 or ($character>0 and / notin $coef and $[(($coef)%$character+$character)%$character]=1)
 error=$error mult_one
 !exit
!endif

tmodif=multiply
!changeto pari.proc


