(servlet ()
(define (ptag file title blurb cost)
{
|
[title] [blurb]
|
Cost: [cost] + 5.50 shipping and handling
|
}
) ; close define
{
Posters for sale
[(ptag "dew.jpg" "Morning Dew" "blah blah blah" "$15.00")]
[(ptag "../glasses.jpg" "Wine Glasses" "blah blaaaah" "$10.00")]
[(ptag "../lines.jpg" "Play" "blaaaaah blaaaah" "$20.00")]
}
)