type UInt16 with
    static member FromBytes (higher: byte) (lower: byte) =
        let higher = higher |> uint16
        let lower = lower |> uint16
        (higher <<< 8) ||| lower

    member x.lowerByte = x &&& 0x00FFus |> byte
    member x.upperByte = (x >>> 8).lowerByte