handleTelnet :: (String -> IO String) -> SockAddr -> Handle -> IO ()
handleTelnet runCmd sa h = do
    hPutStrLn h "\n"
    hPutStrLn h ("harlson " ++ showVersion version)
    handleTelnet' runCmd sa h    
handleTelnet :: (String -> IO String) -> SockAddr -> Handle -> IO ()
handleTelnet runCmd sa h = do
    hPutStrLn h "\n"
    hPutStrLn h ("harlson " ++ showVersion version)
    handleTelnet' runCmd sa h    
handleTelnet runCmd sa h = do
    hPutStrLn h "\n"
    hPutStrLn h ("harlson " ++ showVersion version)
    handleTelnet' runCmd sa h    