(define (chr i j)
    (case (array-ref arr i j)
      ((list +stuck-particle+) "X")
      ((list +moving-particle+) "*")
      ((list +empty-space+) " ")))