scopeOffsetPos :: SemanticUnit -> Int
scopeOffsetPos su = case kd of
                    Method _ -> 0
                    Var _ -> 1 + scopeOffsetPos (inheritFrom su)
                    _ -> scopeOffsetPos (inheritFrom su)
  where
    kd = kind su
scopeOffsetPos :: SemanticUnit -> Int
scopeOffsetPos su = case kd of
                    Method _ -> 0
                    Var _ -> 1 + scopeOffsetPos (inheritFrom su)
                    _ -> scopeOffsetPos (inheritFrom su)
  where
    kd = kind su
scopeOffsetPos su = case kd of
                    Method _ -> 0
                    Var _ -> 1 + scopeOffsetPos (inheritFrom su)
                    _ -> scopeOffsetPos (inheritFrom su)
  where
    kd = kind su