monads on lists test