:arf
---
type ro aBasic:Obj
	ro that:Int
	ro this:Int

type ro bBitFields:Obj
	ro that:Int     & 1
	ro this:Int 298 & 24

type ro cInit:Obj
	ro that:String "hello world"
	ro this:Int    23

# the semantic analyzer should let these sections restrict the permissions of
# inherited members, but it should not let the sections lessen the permissions.
type ro dInitInherit:aBasic
	ro that 9384
	ro this 389

type ro eInitAndDefine:aBasic
	ro this     389
	ro that     9384
	ro born:Int 4
	ro in:Int
	ro the:Int:3 (9348 92384 92834)
	ro walls:String "live in the walls, die in the walls."

type ro fBasic:Int

type ro gBasicInit:Int 6

type ro hIntArray:{Int ..}

type ro iIntArrayInit:Int:3
	(3298 923 92)