Monad's gonna monad.

-module(tmp).
-compile(export_all).


is_divbyfive(X) when X rem 5 =:= 0-> [X];
is_divbyfive(_) -> [].

is_divbysix(X) when X rem 6 =:= 0-> [X];
is_divbysix(_) -> [].

is_divbyseven(X) when X rem 7 =:= 0-> [X];
is_divbyseven(_) -> [].

datmonad() ->
    lists:map(
        fun(X) -> io:format("I can haz ~p~n", [X]) end,
        [X || X <- lists:seq(0,420),
              _ <- is_divbyfive(X),
              _ <- is_divbysix(X),
              _ <- is_divbyseven(X)
        ]).

datmonad2() ->
    [apply(fun(XX) -> io:format("I can haz ~p~n", [XX]) end, [X]) || X <- lists:seq(0,420),
          _ <- is_divbyfive(X),
          _ <- is_divbysix(X),
          _ <- is_divbyseven(X)
    ].

datmonad3() ->
    [io:format("I can haz ~p~n", [X]) || X <- lists:seq(0,420),
          _ <- is_divbyfive(X),
          _ <- is_divbysix(X),
          _ <- is_divbyseven(X)
    ].


datmonad4() ->
    [io:format("I can haz ~p~n", [X2]) || X <- lists:seq(0,420),
          _ <- is_divbyfive(X),
          _ <- is_divbysix(X),
          _ <- is_divbyseven(X),
          X2 <- [X*2]
    ].