rosetta code written in elm for learning elm