(define (item addr title subtitle)
  `(li
     (p
       (a (@ (href addr))
          (span (@ (class "title"))
                title))
       (span (@ (class "subtitle"))
             subtitle))))