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