type RGB = {r: int; g: int; b: int} with
    static member Zero = {r = 0; g = 0; b =0}

let createMagicArray() = Array.create MagicSize RGB.Zero

let mutable currInput = createMagicArray ()

let rec updateCurrentFrameInfo () =
    async {
        let line = file.ReadLine() // hope we are faster to read than to process frames with DSP
        let mas = line.Split [|' '|]
        let tmp = Array.init MagicSize <| fun i ->
            { r = 0xFF &&& (int mas.[i + 3] >>> 16)
              g = 0xFF &&& (int mas.[i + 3] >>> 8)
              b = 0xFF &&& int mas.[i + 3] }

        currInput <- tmp // no explicit lock
        do! updateCurrentFrameInfo()
    }