(:name "triangle"
       :streams ((:program simple-shader
                           :vertex-buffer ((position :float 3
                                                     #(0.25 0.25 0.0
                                                       0.25 -0.25 0.0
                                                       -0.25 -0.25 0.0))
                                           (color :float 4
                                                     #(0.0 0.0 1.0 1.0
                                                       0.0 1.0 0.0 1.0
                                                       1.0 0.0 0.0 1.0)))
                           :index-buffer (:unsigned-short :triangles
                                                          #(0 1 2)))))