A simple Haskell DSL for outputting array forth code.