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)].