+exe.
c
+use,polrad.
+use,sirad,if=-polrad.
+use,strffun.
+use,integrat.
+use,polrad_add,if=polrad.
c+use,fits2,if=polrad.
c+use,alpha2ll,if=polrad.
c
+use,exact,if=polrad.
c+use,approx,if=polrad.
c
+use,elect.    ! electrons
c+use,muons.   ! muons
c
+use,long.      ! longitudinal polarization of target
c+use,tran.     ! transverse polarization of target
c
c --- define kinematics
c
c+use,iter_pr,if=polrad.
c+use,minuit,if=iter_pr.
+use,err_prop,if=minuit.
c+use,iter_pr_g2.
c+use,kin_net.
c+use,kin_smc.
c+use,kin_hermes.
c+use,kin_e142.
+use,kin_own.
c
c
c --- choose type of target
+use,targ_h.
c+use,targ_d.
c+use,targ_he3.
c+use,targ_c.
c+use,targ_o.
c
c+use,f2nmc_d8.
c+use,f2comfst.
c+use,f2g1sch.
+use,f2g1grsv96.
c+use,f1qpm.
c+use,r_eq_0.
c
c+use,g1asym,if=-ietr_pr.
c+use, qdstr_gu,if=sirad.
c
c+use,g2_eq_0.
c+use,g2_ww.
c
+use,ffrg_aub,if=sirad.  ! aubert j.j. et all. phys. lett. v. 160b. p.417
c+use, ffrg_cmb,if=sirad. ! campbell b.a. can. j. phys. 1982. v.60 p.939
c+use, ffrg_arn,if=sirad. ! arneodo m. et al. nuclear phys. 1989. v.b321 p.541
c
c --- choose born if only born cross section is needed
c --- choose asym if only rc to asymmetry (but not to cross section)
c     is needed
c --- choose cr_sec if rc to cross section is also needed
c
c+use,born.
+use,pol_asym.
c+use,qua_asym.
c+use,cr_sec.
+use,onlyin.
c
+use,outfun_a,if=sirad.      !  sirad output: asymmetry
c+use,outfun_r,if=sirad.      !  sirad output: value r(z)
c+use,intdy,if=sirad.         !  cross sections integrated over y
+use, intdz, if=outfun_a.    !  cross sections integrated over z
c+use,cuts,if=sirad.          ! experimental cuts
c+use,electroweak,if=f2g1sch,f2g1grsv96,if=polrad,if=long.
c+use,ew_onlyqed,if=electroweak.
+use,ew_onlylep,if=electroweak.
+use, eweak,if=sirad.
c
c     choose the registered hadron:
c

c+use, proton, if=outfun_a.    proton
c+use, a_proton, if=outfun_a.   antiproton
c+use, k_minus, if=outfun_a.    kaon -
c+use, k_zero_bar, if=outfun_a.   kaon 0 bar
c+use, k_plus, if=outfun_a.     kaon +
c+use, k_zero, if=outfun_a.     kaon 0
c+use, pi_minus, if=outfun_a.    pion -
c+use, pi_plus, if=outfun_a.     pion +
c+use, pi_zero, if=outfun_a.     pion 0
+use, pi_diff, if=outfun_a.    the difference between production of pi+  and  pi-
c
+pam.
+quit.