procedure main()
   if (fork()|runerr(500)) = 0 then
      write("child")
   else {
      delay(1000)
      write("parent")
   }
end