Compiled output

include LauraStd
type LTypeObj_Thing = ref object of LauraStd_Type
    name*: LTypeObj_String
type LTypeObj_Fruit = ref object of LTypeObj_Thing
    slices*: LTypeObj_Int
method lCf_get_name(self: LTypeObj_Thing): LTypeObj_String {.base.} = self.name
proc lSf_Thing_nameIs(self: LTypeObj_Thing, name: LTypeObj_String) =
    self.name = name
proc newLTypeObj_Thing_nameIs(name: LTypeObj_String): LTypeObj_Thing =
    result = LTypeObj_Thing(typeName: "Thing", userType: 1, extends: "Object")
    lSf_Thing_nameIs(result, name)
method lCf_get_slices(self: LTypeObj_Fruit): LTypeObj_Int {.base.} = self.slices
proc lSf_Fruit_nameIs(self: LTypeObj_Fruit, name: LTypeObj_String) =
    self.slices = newLTypeObj_Int(1)
proc newLTypeObj_Fruit_nameIs(name: LTypeObj_String): LTypeObj_Fruit =
    result = LTypeObj_Fruit(typeName: "Fruit", userType: 1, extends: "Thing")
    lSf_Thing_nameIs(result, name)
    lSf_Fruit_nameIs(result, name)
proc lSf_Fruit_nameIs_slicedIn_pieces(self: LTypeObj_Fruit, name: LTypeObj_String, n: LTypeObj_Int) =
    self.slices = n
proc newLTypeObj_Fruit_nameIs_slicedIn_pieces(name: LTypeObj_String, n: LTypeObj_Int): LTypeObj_Fruit =
    result = LTypeObj_Fruit(typeName: "Fruit", userType: 1, extends: "Thing")
    lSf_Thing_nameIs(result, name)
    lSf_Fruit_nameIs_slicedIn_pieces(result, name, n)
method lCf_eat(self: LTypeObj_Thing): LTypeObj_Void {.base.} =
    discard lFn_printLine(lFn_strConcat(newLTypeObj_String("You can't eat a(n) "), self.name, newLTypeObj_String("!")))
    result = newLTypeObj_Void()
method lCf_eat(self: LTypeObj_Fruit): LTypeObj_Void =
    discard lFn_printLine(lFn_strConcat(newLTypeObj_String("You ate a(n) "), self.name, newLTypeObj_String(".")))
    result = newLTypeObj_Void()
method lCf_slice_into_pieces(self: LTypeObj_Fruit, n: LTypeObj_Int): LTypeObj_Void {.base.} =
    if lFn_ifGT(n, newLTypeObj_Int(1)):
        self.slices = n
        discard lFn_printLine(lFn_strConcat(newLTypeObj_String("You sliced the "), self.name, newLTypeObj_String(" into "), self.slices, newLTypeObj_String(" pieces.")))
    else:
        discard lFn_printLine(newLTypeObj_String("You can't do this!"))
var lVr_brick = newLTypeObj_Thing_nameIs(newLTypeObj_String("brick"))
var lVr_orange = newLTypeObj_Fruit_nameIs_slicedIn_pieces(newLTypeObj_String("orange"), newLTypeObj_Int(3))
discard lCf_eat(lVr_brick)
discard lCf_slice_into_pieces(lVr_orange, newLTypeObj_Int(5))
discard lCf_eat(lVr_orange)
discard lFn_printLine(lVr_orange.lCf_get_name)
quit(0)