Type Example
foo As Integer Ptr
Declare Constructor (x As Integer)
End Type
Constructor Example(x As Integer)
This.foo = New Integer
*This.foo = 42 + x
End Constructor
Dim As Example result = 5
Print *result.foo
Sleep