Task

Spawn a new process which can run simultaneously with, and independently of, the original parent process.




#load "unix.cma";;
let pid = Unix.fork ();;
if pid > 0 then
  print_endline "This is the original process"
else
  print_endline "This is the new process";;