Functional MetaPost is a Haskell frontend to the
MetaPost language by John Hobby. Users write their
graphics as Haskell programs, which then emit MetaPost
code that can be compiled into encapsulated PostScript
files and smoothly included into e.g. LaTeX.