Started implementation of contrastive divergence learning by adding some helper functions that operate in an RBMState State Monad.
Added a Main.hs for the purpose of easy testing in ghci.