Nearly working right
Nearly working right

Seems to work except for when the tolerance is very low, around 1d-15,
where sbcl runs out of space.  Is that a real error on my part?
Could probably deal with it better, though.

fisxoj/map