ner :: N.HostName -> N.PortID -> String -> IO (NeForest NE Word)
ner host port inp = do
    handle <- N.connectTo host port
    -- putStrLn "Connection established"
    -- putStr "Send request: " >> putStrLn inp
    sendMsg handle inp
    recvMsg handle


-------------------------------------------------
-- Messages
-------------------------------------------------
ner :: N.HostName -> N.PortID -> String -> IO (NeForest NE Word)
ner host port inp = do
    handle <- N.connectTo host port
    -- putStrLn "Connection established"
    -- putStr "Send request: " >> putStrLn inp
    sendMsg handle inp
    recvMsg handle


-------------------------------------------------
-- Messages
-------------------------------------------------
ner host port inp = do
    handle <- N.connectTo host port
    -- putStrLn "Connection established"
    -- putStr "Send request: " >> putStrLn inp
    sendMsg handle inp
    recvMsg handle


-------------------------------------------------
-- Messages
-------------------------------------------------