turned game calculation function into a state monad
added state monad construct to play-loop
enabled state monad throughout the play stack. Created game-seq. enabled the lein run display.