(define (legal? move player board)
  (and (eqv? (board-ref board move) *empty*)
       (any? (lambda (dir)

;; hypothetical Scheme web DSL
;; note that the macro binds the URI variables
;; to local variables

void sly_io_write_c_string(sly_state_t *S, const char* s, sly_oport_t *port)
{
  const char *p;