◊(->html doc #:splice? #t) ◊(define prev-page (previous here)) ◊when/splice[prev-page]{
←
◊(select 'h1 prev-page)
} ◊(define next-page (next here)) ◊when/splice[next-page]{
◊(select 'h1 next-page)
→
}