import Control.Concurrent.Async
import System.Console.Concurrent
import System.Process

main = withConcurrentOutput $
	outputConcurrent "washed the car\n"
		`concurrently`
	createProcessConcurrent (proc "ls" [])
		`concurrently`
	createProcessConcurrent (proc "sh" ["-c", "echo \"hi from echo!\" >&2"])
		`concurrently`
	outputConcurrent "walked the dog\n"