F# work from book