speed increase my a factor too small to measure
changed images to space images
BOM
playing around with a queue monad
working on the magic -- monad
copy from remote repo
modern version with a self invented optimistic monad