My solution to the Cleaner Code challenge (https://www.codeproject.com/articles/1083348/csharp-bad-practices-learn-how-to-make-a-good-code)

CleanerCode.fs

type AccountKind = Simple | Valuable | MostValuable

type CustomerStatus =
  | Unregistered
  | Registered of AccountKind * Years:int

let accountFactor kind =
  match kind with
  | Simple -> 0.9m
  | Valuable -> 0.7m
  | MostValuable -> 0.5m

let loyaltyFactor years =
  1m - decimal(min years 5) / 100m

let applyDiscount price status =
  match status with
  | Unregistered -> price
  | Registered(kind, years) ->
      price * accountFactor kind * loyaltyFactor years

also make
price * accountFactor kind * loyaltyFactor years
into
price * accountFactor(kind) * loyaltyFactor(years)