(program	
 (struct Data
  [(:= color float4)])

 (fun vertex vs_main
  [] 
  (:= d Data) 
  (:= x float4 d.color)))