[<Literal>]
let A = 12

[<Literal>]
let B = 8

[<Literal>]
let C = 7

let generate count startvalue =
    let rec generate' (last:int) list acc =
         let value : int = (A * last + B) % C
         if (acc <> count) then
            generate' value (value::list) (acc+1)
            else list
    generate' startvalue [] 1