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.26
+version:	0.0.27
 stability:	Alpha
 license:	BSD3
 license-file:	LICENSE
@@ -25,6 +25,6 @@
     hs-source-dirs:	src
     main-is:		cakyrespa.hs
     other-modules:	Minde, Jimpe, Tcidu, Liste, Klesi
-    build-depends:	base >3 && <5, lojbanParser >= 0.1.5,
-        gluturtle >= 0.0.35, GLUT, yjsvg, yjtools >= 0.9.18
+    build-depends:	base >3 && <5, lojbanParser >= 0.1.6,
+        gluturtle >= 0.0.39, GLUT, yjsvg, yjtools >= 0.9.18
     ghc-options:	-Wall
diff --git a/src/Jimpe.hs b/src/Jimpe.hs
--- a/src/Jimpe.hs
+++ b/src/Jimpe.hs
@@ -28,6 +28,7 @@
 jmi (MultiText texts) args = MIDYSTE $ map (($ args) . jmi) texts
 jmi (Vocative "co'o") _ = COhO
 jmi (Vocative "fe'o") _ = COhO
+jmi FAhO _ = COhO
 jmi l _ = SRERA $ show l
 
 type Midytcidu = [(Tag, Sumti)] -> [Sumti] -> Maybe Minde
diff --git a/src/Klesi.hs b/src/Klesi.hs
--- a/src/Klesi.hs
+++ b/src/Klesi.hs
@@ -34,6 +34,7 @@
 	| Vocative String
 	| Free [Free]
 	| MultiText [Text]
+	| FAhO
 	| UnknownText String
 	| ParseError String
 	deriving (Show, Eq)
diff --git a/src/Tcidu.hs b/src/Tcidu.hs
--- a/src/Tcidu.hs
+++ b/src/Tcidu.hs
@@ -40,6 +40,8 @@
 	(x', z : zs)
 
 proc :: Int -> P.Text -> (Int, Text)
+proc n (P.TopText [] (Right Nothing) [] Nothing Nothing (Just ([], "fa'o"))) =
+	(0, FAhO)
 proc n (P.TopText _ _ _ _ (Just t) _) = proc n t
 proc n (P.TopText _ _ [P.VocativeSumti [(_, v, _)] _ _] _ _ _) = (n, Vocative v)
 proc n (P.TopText _ _ fs@(_ : _) _ _ _) = (n, Free fs)