Add map.hs