Realizing a simple message transmission system simulation utilizing monads