Celtic Knot Map, Haskell