const DOG_ACTION = "rub belly"

type Animal
    DIM name AS STRING
    DIM getAction AS FUNCTION AS STRING
end type

type Dog
    base AS Animal
    declare constructor (name_ as string)
    declare function getAction as string
end type

constructor Dog (name_ as string)
    base.name = name_
    base.getAction = PROCPTR(Dog.getAction)
end constructor

function Dog.getAction as string
    return DOG_ACTION
end function