fun randListBad 0 = []
  | randListBad n =
    let
        val seed =  Random.rand (3,7); (* generate a seed *)
        val generator = Random.randRange (1,100);
    in
        (generator seed)::(randListBad (n-1))
    end;

local
    val seed = Random.rand (3,7); (* generate a seed *)
    val generator = Random.randRange (1,100);
in
    fun randList 0 = []
      | randList n =
        (generator seed)::(randList (n-1))
end;