The only thing I miss here is pointing out that you can use function application (\map -> ...)(definition_of_map) instead of defines/assignments.

But then the final piece of code would not look as awesome so whatever :)