Dialect "modern"

Type Counter
    Field value:Int
End Type

Local counter:Counter=New Counter
counter.value=41
counter.value=counter.value+1

If counter.value<>42 Then RuntimeError "Dialect example failed"
Print "Modern dialect counter: "+counter.value

Delete counter
End