(*******************************************************) 
 (* 
      The BERLEKAMP - 
        MASSEY algorithm in Mathematica     *) 
 (*                                                    *) 
 (* 
      Author :  
        Klaus Pommerening                          *) 
 (*        Johannes - Gutenberg - 
        Universität              *) 
 (*        Mainz,  
      Germany                              *) 
 (* 
      3.  Januar 2001                                     *) 
 (* 
      last change :  
          9.  August 2003                        *)  (*******************************************************) 
 (* 
      Constructs the shortest linear shift register that  *) 
 (*   generates a given bit sequence.                   *) 
 (*******************************************************)