(program	
 (fun pixel ps_main
  [] 
  (#if Env.Alpha
      (:= alpha_color (float4 1 0 0 1)) 
      (:= f 2)
      (:= color (float3 0 0 0)) 
      (:= g 5))))