A DSL for creating ascii art in haskell