writeProc [obj, Port port] = liftIO $ hPrint port obj >> (return $ Bool True)
writeProc [obj, Port port] = liftIO $ hPrint port obj >> (return $ Bool True)
writeProc [obj, Port port] = liftIO $ hPrint port obj >> (return $ Bool True)