Units of measure

[<Measure>]
type m

[<Measure>]
type s

let distance = 2.0<m>

let time = 600.0<s>

let speed = distance / time

let _ = speed + time