erlang - simplify beer_song