#lang whalesong

(require whalesong/resource
         whalesong/image)

(define-resource whale-resource "images/humpback.jpg")
(define-resource self-resource "using-resources.rkt")

(define whale-image 
  (image-url
   (resource->url whale-resource)))

(list whale-image whale-image)
(resource? whale-image)
(image? whale-image)


(list whale-resource whale-resource)
(resource? whale-resource)
(image? whale-resource)


(list self-resource self-resource)
(resource? self-resource)
(image? self-resource)
