updateSymT :: Name -> Type -> Int -> Src (Name,Int)
updateSymT name t len = do 
  s <- get 
  let c   = count s
      name' = name ++ show c
      st' = Map.insert name' (t,len) (st s)
  put (SourceState {st = st', count = (c + 1)} )
  return (name',len)

--------------------------------------------------------------------------------
updateSymT :: Name -> Type -> Int -> Src (Name,Int)
updateSymT name t len = do 
  s <- get 
  let c   = count s
      name' = name ++ show c
      st' = Map.insert name' (t,len) (st s)
  put (SourceState {st = st', count = (c + 1)} )
  return (name',len)

--------------------------------------------------------------------------------
updateSymT name t len = do 
  s <- get 
  let c   = count s
      name' = name ++ show c
      st' = Map.insert name' (t,len) (st s)
  put (SourceState {st = st', count = (c + 1)} )
  return (name',len)

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