open FSCL
open FSCL.Compiler
open FSCL.Language
open FSCL.Runtime
[<ReflectedDefinition; Kernel>]
let SimpleAdd(a: float32[], b: float32[], c: float32[], wi: WorkItemInfo) =
let i = wi.GlobalID(0)
c.[i] <- a.[i] + b.[i]
[<EntryPoint>]
let main argv =
let a = [| 1.0f; 2