A simple gen_server to generate sequence numbers. 

Just build it (erl -make) then use sequence_server:get_sequence(key) where key can be any value. If the row doesn't exist for that value it will create it and return the first sequence number. It uses mnesia for the backing store with disc_copies.