lottery4

seed() ->
    reseed(seed0()).

seed({A1, A2, A3}) ->
    seed(A1, A2, A3).

seed(A1, A2, A3) ->
    put(random_seed,
    {abs(A1) rem 30269, abs(A2) rem 30307, abs(A3) rem 30323}).

reseed({A1, A2, A3}) ->
    case seed(A1, A2, A3) of
    undefined -> seed0();
    {_,_,_} = Tuple -> Tuple
    end.