graph processing language

#lang scheme
(require (planet wmfarr/simple-matrix:1:1/matrix))

(define (symbol-list . elements)
  (map symbol-accumulate-and-number elements))
(define (create-adjacency-matrix environment x y)
  (define created-matrix (make-matrix x y))
  
  (for/matrix x y symbol-list)
  (set! environment (cons environment created-matrix)))
(define symbol-accumulate-and-number