Create STMTransfer.hs