diff --git a/cakyrespa.cabal b/cakyrespa.cabal
--- a/cakyrespa.cabal
+++ b/cakyrespa.cabal
@@ -2,7 +2,7 @@
 cabal-version:	>= 1.6
 
 name:		cakyrespa
-version:	0.0.12
+version:	0.0.13
 stability:	Alpha
 license:	BSD3
 license-file:	LICENSE
diff --git a/src/Language/Lojban/Read.hs b/src/Language/Lojban/Read.hs
--- a/src/Language/Lojban/Read.hs
+++ b/src/Language/Lojban/Read.hs
@@ -189,10 +189,11 @@
 		| otherwise = pa : pk 2 rest
 
 paToInt :: [String] -> Double
-paToInt = pti . reverse . processKIhO
-	where
-	pti [] = 0
-	pti (p : rest) = fromJust (lookup' p paList) + 10 * pti rest
+paToInt ("ni'u" : pas) = - (pti $ reverse $ processKIhO pas)
+paToInt pas = pti $ reverse $ processKIhO pas
+
+pti [] = 0
+pti (p : rest) = fromJust (lookup' p paList) + 10 * pti rest
 
 lookup' :: Eq a => a -> [([a], b)] -> Maybe b
 lookup' _ [] = Nothing