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

 (struct Bar
  [(:= t Foo)])

 (fun vertex vs_main
  [] 
  (:= f Foo) 
  (:= b Bar) 
  (= b.t f)))