(define stbi-load
  (foreign-lambda* c-pointer ((c-string filename)
                              ((c-pointer integer) width)
                              ((c-pointer integer) height))
    "int components;
  return stbi_load(filename, width, height, &components, 4);"))