a carnival-style shooting gallery written in Haskell