The Lantern Map, Haskell