diff --git a/FM-SBLEX.cabal b/FM-SBLEX.cabal
--- a/FM-SBLEX.cabal
+++ b/FM-SBLEX.cabal
@@ -1,5 +1,5 @@
 Name: FM-SBLEX
-Version: 3.0
+Version: 3.0.1
 cabal-version: >= 1.2
 build-type: Simple
 category: Natural Language Processing
diff --git a/src/dalin/CommandsSw.hs b/src/dalin/CommandsSw.hs
--- a/src/dalin/CommandsSw.hs
+++ b/src/dalin/CommandsSw.hs
@@ -65,7 +65,9 @@
 
   paradigm_h "pp_i_af" ["af"] prep,
 
-  paradigm_h "kn_i_och" ["och"] conj
+  paradigm_h "kn_i_och" ["och"] conj,
+  
+  paradigm_h "prim" ["prim"] prim
  ]
 
 {-
diff --git a/src/dalin/OtherBuildSw.hs b/src/dalin/OtherBuildSw.hs
--- a/src/dalin/OtherBuildSw.hs
+++ b/src/dalin/OtherBuildSw.hs
@@ -135,6 +135,9 @@
 pn_interrog_inv :: String -> Entry
 pn_interrog_inv = entry . (const :: Str -> InterrogInvForm -> Str) . mkStr
 
+prim :: String -> Entry
+prim = entry . (const :: Str -> Prim -> Str) . mkStr
+
 pn_inv :: String -> Entry
 pn_inv = entry . (const :: Str -> PronInvForm -> Str) . mkStr
 
diff --git a/src/dalin/TestSw.hs b/src/dalin/TestSw.hs
--- a/src/dalin/TestSw.hs
+++ b/src/dalin/TestSw.hs
@@ -192,8 +192,8 @@
 
 in_conjugation :: TestInput -> Char -> String -> String -> Result
 in_conjugation t c suff suff2
- | is_a_word t && (tcat t == "vb") && conj t c && param t ["pres","ind","aktiv"] && not (isSuffixOf suff (w t))  = message t $ "invalid ending in conjugation " ++ [c]
- | is_a_word t && (tcat t == "vb") && conj t c && param t ["pret","ind","aktiv"] && not (isSuffixOf suff2 (w t)) = message t $ "invalid ending in conjugation " ++ [c]
+ | is_a_word t && (tcat t == "vb") && conj t c && param t ["pres","ind","aktiv","1p"] && not (isSuffixOf suff (w t))  = message t $ "invalid ending in conjugation " ++ [c]
+ | is_a_word t && (tcat t == "vb") && conj t c && param t ["pret","ind","aktiv","1p"] && not (isSuffixOf suff2 (w t)) = message t $ "invalid ending in conjugation " ++ [c]
  | otherwise = pass
 
 conj1 t = in_conjugation t '1' "ar" "ade"
@@ -210,7 +210,7 @@
 
 konj_e :: TestInput -> Result
 konj_e t
- | is_a_word t &&  tcat t == "vb" && param t ["konj", "aktiv"]  && (last (w t) /= 'e') = message t "missing 'e' on konj"
+ | is_a_word t &&  tcat t == "vb" && param t ["konj", "aktiv","1p"]  && (last (w t) /= 'e') = message t "missing 'e' on konj"
  | otherwise                            = pass
 
 end_with_h :: TestInput -> Result
@@ -221,7 +221,7 @@
 
 konj_2_es :: TestInput -> Result
 konj_2_es t
- | is_a_word t && tcat t == "vb" && conj t '2' && (param t ["s-form","pres"]) && 
+ | is_a_word t && tcat t == "vb" && conj t '2' && (param t ["s-form","pres","p1"]) && 
    ((dp 2 (w t)) /= "es") && (dp 1 (tk 1 (thead t)) == "s") = message t "s-form not ending with 'es' in conj. 2"
  | otherwise                        = pass
 
diff --git a/src/dalin/TypesSw.hs b/src/dalin/TypesSw.hs
--- a/src/dalin/TypesSw.hs
+++ b/src/dalin/TypesSw.hs
@@ -176,6 +176,13 @@
     values              = enum
     prValue (AdjMInv) = "invar"
 
+data Prim = Prim
+  deriving (Eq, Ord, Show, Read, Enum, Bounded)
+
+instance Param Prim where
+    values              = enum
+    prValue (Prim) = "prim"
+
 instance Param GenNum where
   values = enum
   prValue (ASgUtr)   = "sg" ++ " " ++ prValue Fem
@@ -598,6 +605,9 @@
           defaultAttr _ = w_attr
 instance Dict AdjMInv         
     where category _ = "avm"
+          defaultAttr _ = w_attr
+instance Dict Prim         
+    where category _ = "prim"
           defaultAttr _ = w_attr
 instance Dict VerbForm        where 
     category _ = "vb"
diff --git a/src/fsv/Build.hs b/src/fsv/Build.hs
--- a/src/fsv/Build.hs
+++ b/src/fsv/Build.hs
@@ -121,6 +121,91 @@
 
 vb_laesa s = entryP (laesa_rule s) "laesa"
 
+pn_sin :: String -> Entry
+pn_sin = entry . sin_rule
+
+pn_var :: String -> Entry
+pn_var      _ = entry var_rule
+
+pn_ithar :: String -> Entry
+pn_ithar    _ = entry ithar_rule
+
+pn_thaen :: String -> Entry
+pn_thaen    _ = entry thaen_rule
+
+pn_thaeni :: String -> Entry
+pn_thaeni   _ = entry thaeni_rule
+
+pn_hvar :: String -> Entry
+pn_hvar     _ = entry hvar_rule
+
+pn_hvilken :: String -> Entry
+pn_hvilken  _ = entry hvilkin_rule
+
+pn_nokor :: String -> Entry
+pn_nokor    _ = entry nokor_rule
+
+pn_aegin :: String -> Entry
+pn_aegin    _ = entry aengin_rule
+
+pn_hvaer :: String -> Entry
+pn_hvaer    _ = entry hvaer_rule
+
+pn_hvarghin :: String -> Entry
+pn_hvarghin _ = entry hvarghin_rule
+
+pn_person :: String -> Entry
+pn_person   _ = entry person_rule
+
+pn_hanhon :: String -> Entry
+pn_hanhon   _ = entry hanhon_rule
+
+num_en :: String -> Entry
+num_en _ = numeral 
+  [
+   ["en","æn","in"], ["ens"],   ["enum","enom"], ["en","æn","in"],
+   ["en"],           ["ennar"], ["enni","enne"], ["ena"],
+   ["et","æt","it"], ["ens"],   ["enu","eno"],   ["et","æt","it"]
+  ]
+
+num_twe :: String -> Entry
+num_twe _ = numeral 
+  [
+    ["twe","twer","twa"], ["twæggia","twiggia"],   ["twem"], ["twa"],
+   ["twa","twar"],["twæggia","twiggia"], ["twem"], ["twa","twar"],
+   ["tu"],["twæggia","twviggia"] ,   ["twem"],   ["tu"]
+  ]
+
+num_thri :: String -> Entry
+num_thri _ = numeral 
+  [
+    ["þri","þrir","þre"], ["þriggia"], ["þrim","þrem"], ["þre","þrea"],
+    ["þrea","þrear","þre"],["þriggia"],["þrim","þrem"], ["þrea","þrear","þre"],
+    ["þry"],["þriggia"] ,   ["þrim","þrem"],   ["þry"]
+  ]
+  
+num_fiuri :: String -> Entry
+num_fiuri _ = numeral 
+  [
+   ["fiuri","fiurir","fyri","fyrir"], ["figuhura","figuhurra","fiura","fyra"], 
+   ["fiurum","fyrom"], ["fiura","fyra"],
+   ["fiura","fiurar","fyra","fyrar"], ["figuhura","figuhurra","fiura","fyra"], 
+   ["fiurum","fyrom"], ["fiura","fiurar","fyra","fyrar"],
+   ["fiughur"], ["figuhura","figuhurra","fiura","fyra"], 
+   ["fiurum","fyrom"], ["fiughur"]
+  ]
+
+
+num_bathi :: String -> Entry
+num_bathi _ = 
+  numeral 
+  [
+    ["baþi","baþir"], ["bæggia"], ["baþum","baþom"], ["baþa"],
+    ["baþa","baþar"],["bæggia"],["baþum","baþom"], ["baþa","baþar"],
+     ["baþi","baþin","baþe","baþen","bæþi","bæþin"],
+     ["bæggia"],["baþum","baþom"], ["baþi","baþin","baþe","baþen"]
+  ]
+
 instance Dict NN_Form where 
     category _ = "nn"
     dictword f = case unStr (f (NN_C Sg Nom Indef)) of
diff --git a/src/fsv/Commands.hs b/src/fsv/Commands.hs
--- a/src/fsv/Commands.hs
+++ b/src/fsv/Commands.hs
@@ -62,5 +62,26 @@
   paradigm "vb_vika" ["vika"] vb_vika,
   paradigm "vb_laesa" ["læsa"] vb_laesa,
   -- ordinal
-  paradigm "ord_fyrsti" ["fyrsti"] ord_fyrsti
+  paradigm "ord_fyrsti" ["fyrsti"] ord_fyrsti,
+  
+  paradigm "pn_sin" ["þin"] pn_sin,
+  paradigm "pn_var" ["var"] pn_var,
+  paradigm "pn_ithar" ["iþar"] pn_ithar,
+  paradigm "pn_thaen" ["þæn"] pn_thaen,
+  paradigm "pn_thaeni" ["þænni"] pn_thaeni,
+  paradigm "pn_hvar" ["hvar"] pn_hvar,
+  paradigm "pn_hvilken" ["hvilikin"] pn_hvilken,
+  paradigm "pn_nokor" ["nokor"] pn_nokor,
+  paradigm "pn_aegin" ["ængin"] pn_aegin,
+  paradigm "pn_hvaer" ["hvar"] pn_hvaer,
+  paradigm "pn_hvarghin" ["hvarghin"] pn_hvarghin,
+  paradigm "pn_iaek" ["iæk"] pn_person,
+  paradigm "pn_han" ["han"] pn_hanhon,
+  
+  paradigm "num_en" ["en"] num_en,
+  paradigm "num_twe" ["twe"] num_twe,
+  paradigm "num_thri" ["þri"] num_thri,
+  paradigm "num_fiuri" ["fiuri"] num_fiuri,
+  paradigm "num_bathi" ["baþi"] num_bathi
+  
   ]
diff --git a/src/fsv/Dict.hs b/src/fsv/Dict.hs
--- a/src/fsv/Dict.hs
+++ b/src/fsv/Dict.hs
@@ -7,7 +7,10 @@
 import Dictionary
 
 dict :: Dictionary
-dict = dictionary $ map identifier
+dict = dictionary $ [] 
+       
+{- moved internal to external
+map identifier
  ([
   entry ord_annar_rule
  ] ++ num ++ pron)
@@ -55,7 +58,6 @@
 
 
 -- Pronomen
-
 pron = 
     [
      entry (sin_rule "sin"),
@@ -74,3 +76,4 @@
      entry person_rule,
      entry hanhon_rule
     ]
+-}