Avoid messing up with string case

Use `toUpper` function from `Data.Char` module, use `map` to iterate over string characters