-module(rndtest).
-compile([export_all]).

start () ->
  spawn (rndtest, proc, []),
  spawn (rndtest, proc, []),
  spawn (rndtest, proc, []),
  spawn (rndtest, proc, []).


proc () ->
  {A1, A2, A3} = now (),
  io:format ("Seed of ~p is ~p~n", [self(), {A1,A2,A3}]),
  random:seed (A1, A2, A3),
  io:format ("Number generated from proc ~p is ~p~n",
             [self(), random:uniform (10)]).