aKinds: obj %include MetaSystem speedy: integer lasse: var integer signal: speedMore: -- V: ?integer S: val speedy --S: = speedy q: var integer SN: ref ObjSnap