#! /home/tak/bin/mytop 
(* /mnt/other/tak/bin/mytop *)
(************************************************************
   fork.ml		Created      : Mon Jun 17 00:38:35 2002
  			Last modified: Mon Jun 17 14:54:47 2002
  Compile: make #
************************************************************)

let kind = Unix.fork () in
if kind = 0 then
  begin
    print_string ("I'm child: " ^ (string_of_int kind) ^ "\n");
    flush stdout;
  end
else
  begin 
    print_string ("I'm parent: "  ^ (string_of_int kind) ^ "\n");
    flush stdout;
  end