Addin third day exercise 1 of erlang