{-# LANGUAGE OverloadedStrings #-} import Control.Applicative import Control.Monad import System.IO import System.Exit import System.Environment import qualified System.ZMQ3 as ZMQ import qualified Data.ByteString.UTF8 as SB import qualified Data.ByteString.Char8 as SB main :: IO () main = do args <- getArgs when (length args /= 2) $ do hPutStrLn stderr "usage: prompt