genMemoryMap' ((x,ns):xs) prev_names ict =  
    do 
      freeDead prev_names ns
      genMemoryMap' xs ns ((x,0):ict) 


-- -----------------------------------------------------------------------------
genMemoryMap' ((x,ns):xs) prev_names ict =  
    do 
      freeDead prev_names ns
      genMemoryMap' xs ns ((x,0):ict) 


-- -----------------------------------------------------------------------------
genMemoryMap' ((x,ns):xs) prev_names ict =  
    do 
      freeDead prev_names ns
      genMemoryMap' xs ns ((x,0):ict) 


-- -----------------------------------------------------------------------------