loop :: NBModel -> IO ()
loop model = do
    putStrLn "Enter a tech/biz headline to classify. Empty string to exit"
    putStr "> "
    done <- isEOF
    if done then
        putStrLn "Bye."
    else
        do
            sent <- getLine
            case sent of
              "" -> putStrLn "Bye."
              _ -> processSentence sent model
loop :: NBModel -> IO ()
loop model = do
    putStrLn "Enter a tech/biz headline to classify. Empty string to exit"
    putStr "> "
    done <- isEOF
    if done then
        putStrLn "Bye."
    else
        do
            sent <- getLine
            case sent of
              "" -> putStrLn "Bye."
              _ -> processSentence sent model
loop model = do
    putStrLn "Enter a tech/biz headline to classify. Empty string to exit"
    putStr "> "
    done <- isEOF
    if done then
        putStrLn "Bye."
    else
        do
            sent <- getLine
            case sent of
              "" -> putStrLn "Bye."
              _ -> processSentence sent model