Used random monad transformer suggestion from Patrick and Aleksey