handleForString :: String -> IO Handle.Handle
handleForString s = do
  (r, w) <- Proc.createPipe
  _ <- Handle.hPutStr r s
  return w
handleForString :: String -> IO Handle.Handle
handleForString s = do
  (r, w) <- Proc.createPipe
  _ <- Handle.hPutStr r s
  return w
handleForString s = do
  (r, w) <- Proc.createPipe
  _ <- Handle.hPutStr r s
  return w