for

-module(halo1).
-export([for/4]).

for(M, M, _, F) -> [F(M)];
for(A, M, _, _) when A > M -> [];
for(A, M, H, F) -> [F(A) | for(A + H, M, H, F)].