foo from command line

foo.erl

-module(foo).
-compile(export_all).

start() ->
  List = lists:seq(1, 1000),
  {Timer, _} = timer:tc(fun() ->
    lists:foreach(fun(I) ->
      Name = list_to_atom("module" ++ integer_to_list(I)),
      {ok, Name, _} = compile:forms([{attribute, 1, module, Name}])
    end, List)
  end, []),
  io:format("Time: ~p.~n", [Timer]).