diff --git a/src/persian/StructuralPes.gf b/src/persian/StructuralPes.gf
index 67d449ef7..a1c7a6cb7 100644
--- a/src/persian/StructuralPes.gf
+++ b/src/persian/StructuralPes.gf
@@ -1,5 +1,5 @@
 concrete StructuralPes of Structural = CatPes ** 
-  open MorphoPes, ParadigmsPes, Prelude, NounPes in {
+  open MorphoPes, ParadigmsPes, Prelude, NounPes, (R=ResPes) in {
 
   flags optimize=all ;
   coding = utf8;
@@ -126,10 +126,132 @@ concrete StructuralPes of Structural = CatPes **
 
   as_CAdv = {s = ["به اندازه ی"] ; p = ""} ;
 
-  have_V2 = mkV2 (mkV "داشتن" "دار") "را" ;
+----  have_V2 = mkV2 (mkV "داشتن" "دار") "را" ;
 
  language_title_Utt = ss "پeرسن" ;
 
+---- AR from Nasrin
+
+have_V2 = {
+  s = table {
+  (VF Pos (PPresent2 PrPerf) PPers1 Sg) => "داشته ام" ;
+  (VF Pos (PPresent2 PrPerf) PPers1 Pl) => "داشته ایم" ;
+  (VF Pos (PPresent2 PrPerf) PPers2 Sg) => "داشته ای" ;
+  (VF Pos (PPresent2 PrPerf) PPers2 Pl) => "داشته اید" ;
+  (VF Pos (PPresent2 PrPerf) PPers3 Sg) => "داشته است" ;
+  (VF Pos (PPresent2 PrPerf) PPers3 Pl) => "داشته اند" ;
+  (VF Pos (PPresent2 PrImperf) PPers1 Sg) => "دارم" ;
+  (VF Pos (PPresent2 PrImperf) PPers1 Pl) => "داریم" ;
+  (VF Pos (PPresent2 PrImperf) PPers2 Sg) => "داریم" ;
+  (VF Pos (PPresent2 PrImperf) PPers2 Pl) => "دارید" ;
+  (VF Pos (PPresent2 PrImperf) PPers3 Sg) => "دارد" ;
+  (VF Pos (PPresent2 PrImperf) PPers3 Pl) => "دارند" ;
+  (VF Pos (PPast2 PstPerf) PPers1 Sg) => "داشته بودم" ;
+  (VF Pos (PPast2 PstPerf) PPers1 Pl) => "داشته بودیم" ;
+  (VF Pos (PPast2 PstPerf) PPers2 Sg) => "داشته بودی" ;
+  (VF Pos (PPast2 PstPerf) PPers2 Pl) => "داشته بودید" ;
+  (VF Pos (PPast2 PstPerf) PPers3 Sg) => "داشته بود" ;
+  (VF Pos (PPast2 PstPerf) PPers3 Pl) => "داشته بودند" ;
+  (VF Pos (PPast2 PstImperf) PPers1 Sg) => "می داشتم" ;
+  (VF Pos (PPast2 PstImperf) PPers1 Pl) => "می داشتیم" ;
+  (VF Pos (PPast2 PstImperf) PPers2 Sg) => "می داشتی" ;
+  (VF Pos (PPast2 PstImperf) PPers2 Pl) => "می داشتید" ;
+  (VF Pos (PPast2 PstImperf) PPers3 Sg) => "می داشت" ;
+  (VF Pos (PPast2 PstImperf) PPers3 Pl) => "می داشتند" ;
+  (VF Pos (PPast2 PstAorist) PPers1 Sg) => "داشتم" ;
+  (VF Pos (PPast2 PstAorist) PPers1 Pl) => "داشتیم" ;
+  (VF Pos (PPast2 PstAorist) PPers2 Sg) => "داشتی" ;
+  (VF Pos (PPast2 PstAorist) PPers2 Pl) => "داشتید" ;
+  (VF Pos (PPast2 PstAorist) PPers3 Sg) => "داشت" ;
+  (VF Pos (PPast2 PstAorist) PPers3 Pl) => "داشتند" ;
+  (VF Pos (PFut2 FtAorist) PPers1 Sg) => "خواهم داشت" ;
+  (VF Pos (PFut2 FtAorist) PPers1 Pl) => "خواهیم داشت" ;
+  (VF Pos (PFut2 FtAorist) PPers2 Sg) => "خواهی داشت" ;
+  (VF Pos (PFut2 FtAorist) PPers2 Pl) => "خواهید داشت" ;
+  (VF Pos (PFut2 FtAorist) PPers3 Sg) => "خواهد داشت" ;
+  (VF Pos (PFut2 FtAorist) PPers3 Pl) => "خواهند داشت" ;
+  (VF Pos (Infr_Past2 InfrPerf) PPers1 Sg) => "داشته بوده ام" ;
+  (VF Pos (Infr_Past2 InfrPerf) PPers1 Pl) => "داشته بوده ایم" ;
+  (VF Pos (Infr_Past2 InfrPerf) PPers2 Sg) => "داشته بوده ای" ;
+  (VF Pos (Infr_Past2 InfrPerf) PPers2 Pl) => "داشته بوده اید" ;
+  (VF Pos (Infr_Past2 InfrPerf) PPers3 Sg) => "داشته بوده است" ;
+  (VF Pos (Infr_Past2 InfrPerf) PPers3 Pl) => "داشته بوده اند" ;
+  (VF Pos (Infr_Past2 InfrImperf) PPers1 Sg) => "می داشته ام" ;
+  (VF Pos (Infr_Past2 InfrImperf) PPers1 Pl) => "می داشته ایم" ;
+  (VF Pos (Infr_Past2 InfrImperf) PPers2 Sg) => "می داشته ای" ;
+  (VF Pos (Infr_Past2 InfrImperf) PPers2 Pl) => "می داشته اید" ;
+  (VF Pos (Infr_Past2 InfrImperf) PPers3 Sg) => "می داشته است" ;
+  (VF Pos (Infr_Past2 InfrImperf) PPers3 Pl) => "می داشته اند" ;
+  (VF Neg (PPresent2 PrPerf) PPers1 Sg) => "نداشته ام" ;
+  (VF Neg (PPresent2 PrPerf) PPers1 Pl) => "نداشته ایم" ;
+  (VF Neg (PPresent2 PrPerf) PPers2 Sg) => "نداشته ای" ;
+  (VF Neg (PPresent2 PrPerf) PPers2 Pl) => "نداشته اید" ;
+  (VF Neg (PPresent2 PrPerf) PPers3 Sg) => "نداشته است" ;
+  (VF Neg (PPresent2 PrPerf) PPers3 Pl) => "نداشته اند" ;
+  (VF Neg (PPresent2 PrImperf) PPers1 Sg) => "ندارم" ;
+  (VF Neg (PPresent2 PrImperf) PPers1 Pl) => "نداریم" ;
+  (VF Neg (PPresent2 PrImperf) PPers2 Sg) => "نداری" ;
+  (VF Neg (PPresent2 PrImperf) PPers2 Pl) => "ندارید" ;
+  (VF Neg (PPresent2 PrImperf) PPers3 Sg) => "ندارد" ;
+  (VF Neg (PPresent2 PrImperf) PPers3 Pl) => "ندارند" ;
+  (VF Neg (PPast2 PstPerf) PPers1 Sg) => "نداشته بودم" ;
+  (VF Neg (PPast2 PstPerf) PPers1 Pl) => "نداشته بودیم" ;
+  (VF Neg (PPast2 PstPerf) PPers2 Sg) => "نداشته بودی" ;
+  (VF Neg (PPast2 PstPerf) PPers2 Pl) => "نداشته بودید" ;
+  (VF Neg (PPast2 PstPerf) PPers3 Sg) => "نداشته بود" ;
+  (VF Neg (PPast2 PstPerf) PPers3 Pl) => "نداشته بودند" ;
+  (VF Neg (PPast2 PstImperf) PPers1 Sg) => "نمی داشتم" ;
+  (VF Neg (PPast2 PstImperf) PPers1 Pl) => "نمی داشتیم" ;
+  (VF Neg (PPast2 PstImperf) PPers2 Sg) => "نمی داشتی" ;
+  (VF Neg (PPast2 PstImperf) PPers2 Pl) => "نمی داشتید" ;
+  (VF Neg (PPast2 PstImperf) PPers3 Sg) => "نمی داشت" ;
+  (VF Neg (PPast2 PstImperf) PPers3 Pl) => "نمی داشتند" ;
+  (VF Neg (PPast2 PstAorist) PPers1 Sg) => "نداشتم" ;
+  (VF Neg (PPast2 PstAorist) PPers1 Pl) => "نداشتیم" ;
+  (VF Neg (PPast2 PstAorist) PPers2 Sg) => "نداشتی" ;
+  (VF Neg (PPast2 PstAorist) PPers2 Pl) => "نداشتید" ;
+  (VF Neg (PPast2 PstAorist) PPers3 Sg) => "نداشت" ;
+  (VF Neg (PPast2 PstAorist) PPers3 Pl) => "نداشتند" ;
+  (VF Neg (PFut2 FtAorist) PPers1 Sg) => "نخواهم داشت" ;
+  (VF Neg (PFut2 FtAorist) PPers1 Pl) => "نخواهیم داشت" ;
+  (VF Neg (PFut2 FtAorist) PPers2 Sg) => "نخواهی داشت" ;
+  (VF Neg (PFut2 FtAorist) PPers2 Pl) => "نخواهید داشت" ;
+  (VF Neg (PFut2 FtAorist) PPers3 Sg) => "نخواهد داشت" ;
+  (VF Neg (PFut2 FtAorist) PPers3 Pl) => "نخواهند داشت" ;
+  (VF Neg (Infr_Past2 InfrPerf) PPers1 Sg) => "نداشته بوده ام" ;
+  (VF Neg (Infr_Past2 InfrPerf) PPers1 Pl) => "نداشته بوده ایم" ;
+  (VF Neg (Infr_Past2 InfrPerf) PPers2 Sg) => "نداشته بوده ای" ;
+  (VF Neg (Infr_Past2 InfrPerf) PPers2 Pl) => "نداشته بوده اید" ;
+  (VF Neg (Infr_Past2 InfrPerf) PPers3 Sg) => "نداشته بوده است" ;
+  (VF Neg (Infr_Past2 InfrPerf) PPers3 Pl) => "نداشته بوده اند" ;
+  (VF Neg (Infr_Past2 InfrImperf) PPers1 Sg) => "نمی داشته ام" ;
+  (VF Neg (Infr_Past2 InfrImperf) PPers1 Pl) => "نمی داشته ایم" ;
+  (VF Neg (Infr_Past2 InfrImperf) PPers2 Sg) => "نمی داشته ای" ;
+  (VF Neg (Infr_Past2 InfrImperf) PPers2 Pl) => "نمی داشته اید" ;
+  (VF Neg (Infr_Past2 InfrImperf) PPers3 Sg) => "نمی داشته است" ;
+  (VF Neg (Infr_Past2 InfrImperf) PPers3 Pl) => "نمی داشته اند" ;
+  (Vvform (AgPes Sg PPers1)) => "بدارم" ;
+  (Vvform (AgPes Sg PPers2)) => "بداری" ;
+  (Vvform (AgPes Sg PPers3)) => "بدارد" ;
+  (Vvform (AgPes Pl PPers1)) => "بداریم" ;
+  (Vvform (AgPes Pl PPers2)) => "بدارید" ;
+  (Vvform (AgPes Pl PPers3)) => "بدارند" ;
+  (R.Imp Pos Sg) => "بدار" ;
+  (R.Imp Pos Pl) => "بدارید" ;
+  (R.Imp Neg Sg) => "ندار" ;
+  (R.Imp Neg Pl) => "ندارید" ;
+  Inf => "داشتن" ;
+  Root1 => "داشت" ;
+  Root2 => "دار" 
+  } ;
+  c2 = {
+    s  = [] ;
+    ra = "را" ;
+    c = R.VTrans
+    }
+  } ;
+
+
 }