//carクラス(親クラス)
type car(maker:string)=
let manifacuters=maker
member _.printmaker()=printfn "メーカー:%s" manifacuters
member _.startengine()=printfn "エンジンかける"
member _.driving()=printfn "ぶんぶん!!"
//trackクラス(子クラス)
type track(maker:string)=
//引数makerでcarクラスより継承
inherit car(maker)
member _.carrycomponent()=printfn "荷物運ぶよ"
member _.makermsg(makers:string)=printfn "%sのトラックって良いよね" makers
let kuruma=new track("isuzu")
//carクラスで定義されている処理を呼び出す
kuruma.printmaker()
kuruma.driving()
//trackクラスで定義されている処理を呼び出す
kuruma.carrycomponent()
kuruma.makermsg("いすゞ")
//出力結果:
//メーカー:isuzu
//ぶんぶん!!
//荷物運ぶよ
//いすゞのトラックって良いよね