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

!if $origin=$dest
 error=$error coincide
 !exit
!endif

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

tmodif=add
!changeto pari.proc

