void nulw()
{
   //
   // neutrino lepton W vertex
   //
   TCanvas *c1 = new TCanvas("nulw", "nulw", 740,40, 300, 300);
   c1->Range(3, 3, 57, 57);
   Int_t linsav = gStyle->GetLineWidth();
   gStyle->SetLineWidth(3);
   TLatex t;
   t.SetTextAlign(22);
   t.SetTextSize(0.1);
   TLine * l;

   // Incoming nu_l, outgoing l-
   l = new TLine(50, 50, 30, 30); l->Draw();
   l = new TLine(10, 50, 30, 30); l->Draw();

   t.DrawLatex(7,53,"#nu_{l}");
   t.DrawLatex(53,53,"l^{-}");

   // W propagator
   lc = new TCurlyLine(30, 30, 30, 5);
   lc->SetWavy();
   lc->Draw();
   // t.DrawLatex(25, 17.5,"Z^{0}/#gamma");
   t.DrawLatex(25, 17.5,"W^{#pm}");

   c1->Update();
   gStyle->SetLineWidth(linsav);
}