render _ =
    let frame = FrameBuffer (depthImage1 1.0)
    in ScreenOut frame
main = render (Uniform "MVP" :: Mat 4 4 Float)