bytes :: Name -> SymbolTable -> Int 
bytes name table = case Map.lookup name table of 
                     Nothing -> error "error: bytes"
                     Just a -> (snd a) * sizeof (elemType (fst a))
bytes :: Name -> SymbolTable -> Int
bytes name table = case Map.lookup name table of 
                     Nothing -> error "error: bytes"
                     Just a -> (snd a) * sizeof (elemType (fst a))
bytes name table = case Map.lookup name table of 
                     Nothing -> error "error: bytes"
                     Just a -> (snd a) * sizeof (elemType (fst a))