lookUpSymbolTable su nm = case cur of
                            [] -> lookUpSymbolTable parent nm
                            _ -> cur
    where
        (SU _ _ st parent) = su
        cur = filter (\s -> (localName s) == nm) st
lookUpSymbolTable su nm = case cur of
                            [] -> lookUpSymbolTable parent nm
                            _ -> cur
    where
        (SU _ _ st parent) = su
        cur = filter (\s -> (localName s) == nm) st
lookUpSymbolTable su nm = case cur of
                            [] -> lookUpSymbolTable parent nm
                            _ -> cur
    where
        (SU _ _ st parent) = su
        cur = filter (\s -> (localName s) == nm) st