New implementation working.
-rw-r--r-- 12631 mars.scm
-rw-r--r-- 1234 vis.scm