WhyNoFancyPrint

Car.fs

module Car

type Make = Make of string
type Color = Color of string
type Year = Year of int
type Car = private {Make: Make; Year: Year; Color: Color}
    with 
        member a.PrintYear() = printfn "%A" a.Year

let print (a:Car) = printfn "%A" a // Car+Car
let print (a:Car) = printfn "%+A" a // Print stuff nicely