tweak
factored animation monad out of main.   it kinda works