Processus
Fonction sleep

-module (mytimer).
-export ([sleep/1]).

sleep (S) ->
    receive
    after 1000*S -> ok
    end.