(clear)
(define (foo)
  (scale (vector 4 4 4))
  (texture (load-texture "this-way-up.png"))
  (draw-cube)
)
(every-frame (foo))