+(define w (make-wish 640 480))
+(define colours '((imp . "red")
+ (dwarf . "blue")))
+
+(define core (make-core (* 640 480) (make-instr 'DAT 'F 'immediate 0 'immediate 0)
+ (lambda (i n)
+ (set-wish-pixel w
+ (remainder i 640)
+ (quotient i 640)
+ (cdr (assoc n colours))))))