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