Linux - erlang

Erlang
Erlang (BEAM) emulator version 5.8
Compiled on Sun Dec  5 19:07:34 2010

-module(testerl).
-export([main/1]).

main(5)->
    io:format("end");
main(N)->
    S=now_milli(erlang:now()),
    testr(0),
    E=now_milli(erlang:now()),
   
    io:format("r= ~w ~n", [E-S]),
    main(N+1).
   
testr(100000000)->
    1;
testr(N) ->
    X=N/10,
    testr(N+1).

now_milli({MegaSecs,Secs,MicroSecs}) ->
        (MegaSecs*1000000 + Secs)*1000 + MicroSecs/1000.


2185.85498046875
2162.136962890625
2160.8369140625
2158.656982421875
2190.274169921875