processSentence :: String -> NBModel -> IO ()
processSentence sent model = do
                    let klass = testUtterance model sent
                    printClass sent $ case klass of
                      "t" ->  "Technology"
                      _ ->    "Business"
                    answer <- checkAnswer
                    if answer then
                        do
                            putStrLn "Great!"
                            let newModel = trainUtterance model klass sent
                            loop newModel
                    else
                        do
                            putStrLn "OK, I stand corrected."
                            let correct = reverseClass klass
                            let newModel = trainUtterance model correct sent
                            loop newModel
processSentence :: String -> NBModel -> IO ()
processSentence sent model = do
                    let klass = testUtterance model sent
                    printClass sent $ case klass of
                      "t" ->  "Technology"
                      _ ->    "Business"
                    answer <- checkAnswer
                    if answer then
                        do
                            putStrLn "Great!"
                            let newModel = trainUtterance model klass sent
                            loop newModel
                    else
                        do
                            putStrLn "OK, I stand corrected."
                            let correct = reverseClass klass
                            let newModel = trainUtterance model correct sent
                            loop newModel
processSentence sent model = do
                    let klass = testUtterance model sent
                    printClass sent $ case klass of
                      "t" ->  "Technology"
                      _ ->    "Business"
                    answer <- checkAnswer
                    if answer then
                        do
                            putStrLn "Great!"
                            let newModel = trainUtterance model klass sent
                            loop newModel
                    else
                        do
                            putStrLn "OK, I stand corrected."
                            let correct = reverseClass klass
                            let newModel = trainUtterance model correct sent
                            loop newModel