-- 
-- This file Copyright 2001 Jeffrey B Putnam
-- Please Contact me - jefu@eou.edu - for information 
-- 

rlist multiplier adder modulus seed  
                   =        l1 
		        where 
                            rl i = (i * multiplier + adder) `mod` modulus
	                    basicl = seed:(map rl  basicl) 
	           	    toReal x = (fromInt x) / (fromInt modulus)
	                    l1 = map toReal basicl

l1 = rlist 1231212312 232  2321123 75 
l2 = rlist 112312     198  1818776 73 

insert a [] = [a] 
insert t1@(x,y) t2@((a,b):ls) 
      | x < a     = t1:t2 
      | otherwise = t2;