anj1

function forkjulia()
	r = ccall((:fork, "libc"), Int32, ())
	if r != 0
		# parent
		returnstatus=0
		ccall((:waitpid, "libc"), Int32, (Int32, Ptr{Int32}, Int32), r, &returnstatus, 0)
		println("forkjulia: return status: $returnstatus")
	end
end