genMemoryMap' :: ICLive -> Set.Set Name -> ICT -> GenState (ICT,MemoryMap) 
genMemoryMap' [] _ ict = 
    do  
      mstate <- get; 
      return (reverse ict,mm mstate) --REVERSE IT 
genMemoryMap' :: ICLive -> Set.Set Name -> ICT -> GenState (ICT,MemoryMap)
genMemoryMap' [] _ ict = 
    do  
      mstate <- get; 
      return (reverse ict,mm mstate) --REVERSE IT 
genMemoryMap' [] _ ict = 
    do  
      mstate <- get; 
      return (reverse ict,mm mstate) --REVERSE IT 