scopeConstructor :: SemanticUnit -> Bool
scopeConstructor su = case kd of
                        Method (FUNC mds _ _ _ _) -> elem "cons" mds                
                        _ -> scopeConstructor (inheritFrom su)
    where
        kd = kind su
scopeConstructor :: SemanticUnit -> Bool
scopeConstructor su = case kd of
                        Method (FUNC mds _ _ _ _) -> elem "cons" mds                
                        _ -> scopeConstructor (inheritFrom su)
    where
        kd = kind su
scopeConstructor su = case kd of
                        Method (FUNC mds _ _ _ _) -> elem "cons" mds                
                        _ -> scopeConstructor (inheritFrom su)
    where
        kd = kind su