Welcome to the CHICKEN Scheme pasting service

#;4> ,c
 15:[]  <eval>    [build-markers] (cdr p)
 14:[]  <eval>    [build-markers] (cons marker (translation (make-point (car p) (cdr p) 0)))
 13:[]  <eval>    [build-markers] (translation (make-point (car p) (cdr p) 0))
 12:[]  <eval>    [build-markers] (make-point (car p) (cdr p) 0)
 11:[]  <eval>    [build-markers] (car p)
 10:[]  <eval>    [build-markers] (cdr p)
 9:[]   <eval>    [build-markers] (cons marker (translation (make-point (car p) (cdr p) 0)))
 8:[]   <eval>    [build-markers] (translation (make-point (car p) (cdr p) 0))
 7:[]   <eval>    [build-markers] (make-point (car p) (cdr p) 0)
 6:[]   <eval>    [build-markers] (car p)
 5:[]   <eval>    [build-markers] (cdr p)
 4:[]   <eval>    [build-markers] (cons marker (translation (make-point (car p) (cdr p) 0)))
 3:[]   <eval>    [build-markers] (translation (make-point (car p) (cdr p) 0))
 2:[]   <eval>    [build-markers] (make-point (car p) (cdr p) 0)
 1:[]   <eval>    [build-markers] (car p)
*0:[]   <eval>    [build-markers] (cdr p)
  ---
  p685:   (5/6 . 5/6)
  ---
  marker-points684:       ((1/6 . 1/6) (1/6 . 0.5) (1/6 . 5/6) (0.5 . 1/6) (0.5 . 0.5) (0.5 . 5/6) (5/6 . 1/6) (5/6 . 0.5) (5/...
  ---
  15nodes683:     5/6
  ---
  3nodes682:      1/6