-- test of process pipes

import Control.Concurrent.HPL

text = "This is a text that\n\
       \is used for testing\n\
       \the process management\n\
       \of the ports library.\n"

dump p = 
  do
    outp <- spawn_ putStr
    openPort outp  -- port closed twice
    p outp outp
    waitForThread outp

main = 
  do
    dump (proc "grep" ["is"] >| proc "wc" [] $ text)
    putStrLn "End."