Add shm (structured haskell mode)