-- !! Basic pipe usage
module Main (main) where

import System.Posix

main = do
  (rd, wd) <- createPipe
  pid <- forkProcess $ do (str, _) <- fdRead rd 32
                          putStrLn str
  fdWrite wd "Hi, there - forked child calling"
  getProcessStatus True False pid
  return ()