updated comments.
use Data.Sum.map
i learned Data.Sum.map