Build to Suit and Lease in Haskell (OK)