Functional MetaPost is a Haskell frontend to the MetaPost language. 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.