some ChunkTha items ; subcat verbs in DictionaryTha guessed

src/translator/CheckDict.hs

@@ -2,7 +2,7 @@ import qualified Data.Map
 import qualified Data.Set
 import Data.List
 
-langs = words "Bul Cat Chi Dut Eng Fin Fre Ger Hin Ita Jpn Spa Swe"
+langs = words "Bul Cat Chi Dut Eng Fin Fre Ger Hin Ita Jpn Spa Swe Tha"
 
 -- apply a function to every line, changing it to a list 
 changeLinesLang :: (String -> [String]) -> String -> IO ()