(module exhello mzscheme

(require (planet "util.ss" ("kazzmir" "allegro.plt" 1 0))
         (planet "keyboard.ss" ("kazzmir" "allegro.plt" 1 0))
         (prefix image- (planet "image.ss" ("kazzmir" "allegro.plt" 1 0))))

(provide run)
(define (run)
  (easy-init 320 240 16)
  (image-clear-screen (image-color 255 255 255))
  (image-print-screen 160 120 (image-color 0 0 0) -1 "Hello World!")
  (readkey)
  (easy-exit))

)